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SEQ 0003 
GENERAL PROGRAM INFORMATION 


PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC 1S A LOGIC TEST TO VERIFY THE OPERATION OF THE 
D AL LINE INTERFACE. THE USER CAN SELECTIVELY 


TS 0 . __THE DIAGNOSTIC 1S DESIGNED TO TEST AND 
DETECT FAULTS TO THE LOGIC LEVEL (NOT TO THE CHIP LEVEL). 
THIS TEST OPERATES ON UP TO SIXTEEN(16) IDENTICALLY CONFIGURED 
DLV11-F SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE: 


177560 -CONSOLE INTERFACE DEVICE ADDRESS 
175610 -FIRST SERIAL LINE ADDRESS OF 15 CONSECUTIVE 
SERIAL LINE DEVICES 


60 - VECTOR FOR CONSOLE DEVICE INTERFACE. 
300 - VECTOR FOR FIRST OF 15 DEVICES. 


THIS PROGRAM IS DESIGNED TO RUN ON ANY POP-11 WITH 4K OF 
MEMORY AND A OLVI1-F (LSI-BUS) MODULE. IT CAN RUN UNDER XxXDP, 
APT, AND ACT MONITORS. AND ON PROCESSORS WITH NO HARDWARE 
SWITCH REGISTER. A POWER FAILURE WILL CAUSE THE DIAG- 

NOSTIC TO RESTART. 


SYSTEM REQUIREMENTS 
HARDWARE REQUIREMENTS: 
ANY POP-11 F yon ee 


YK MEMORY - MINIM 
A SPECIAL WRAP CONNECTOR OR EQUIVALENT (OPTIONAL ) 


SOFTWARE REQUIREMENTS 


THIS DIAGNOSTIC 1S DESIGNED TO RUN IN ANY OF THE 
FOLLOWING WAYS: 
STAND ALONE 
WITH APT MONITOR 
WITH ACT MONITOR 
WITH XXDP MONITOR (CHAINABLE ) 


RELATED DOCUMENTS AND STANDARDS 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MO-11-O22MA 

ACT AUTOCAT-11-Q2AUB 
SYSMAC MD-11-O02QAC 


DIAGNOSTIC HIERARCHY PREREQUISITES. 
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2.0 


22 


23 


NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS. BUT 
Senin MEMORY. AND BUS ARE ASSUMMED TO BE FULLY 


ASSUMPTIONS. 


THIS DIAGNCSTIC ASSUMES THAT THE OPERATOR HAS INITIALIZED 
LOCATION ‘SUSWR* AND 'SDEVM' TO THE PROPER VALUES. 


OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 
=. — PROCEDURE FOR PDOP-11 ABSOLUTE BINARY FORMATTED 
MEDIA. 


THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADDRESS. 200 FOR 
START AND RESTART. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
SWITCH 8 IN THE SWITCH REGISTER AND THE TEST NUMBER (IN OCTAL) 
IN THE LOWER BYTE. (NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ONE ARE EXECUTED WiTHOUT ITERATIONS. ) 


SPECIAL ENVIRONMENTS. 


THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT.ACT.XXDP MONITORS. AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 


OPERATIONAL SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER 1S USED WHICH 
ALLOWS THE USER THE SAME SWITCH OPTIONS AS THE 
HARDWARE SWITCH REGISTER. 1F THE HARDWARE SWITCH 
REGISTER DOES NOT EXIST OR IF ONE DOES AND IT CONTAINS 
ALL ONES (177777) THEN THE SOFTWARE SWITCH REGISTER 
(LOC. 176) IS USED 


CONTROL: 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER 
DATA INTO LOC. 176 AT SELECTED POINTS WITHIN THE 


SEQ 0004 
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PROGRAN. 


THE MACHINE WILL THEN TYPE: ' SWR=XXXXXX NEW=' (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER. ) 


AFTER THE ‘'NEW=' HAS BEEN TYPED a THE OPERATOR CAN ODO 
ONE OF THE FOLLOWING AT THE T 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A <CR>. (ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED. AND IF MORE THAN 6 
DIGITS ARE TYPED THE LAST 6 WILL BE USED. IF A <CR> 
1S THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED 


1F A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


\F THE INPUT CHARACTER 1S NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (7) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 

THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


DYNAMIC SWITCH REGISTER 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

(UNUSED) 

INHIBIT ITERATIONS 
ERROR 


15 
14 
13 
12 
11 
10 
9 
8 
0 


0 
LOOP ON TEST IN SWR<?: 0> 
TEST NUMBER TO LOOP ON (USED WITH BIT 8) 


Ba 


PROGRAM OPTIONS. 


THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE OLV1i1-F'S. \T 
REQUIRES THE ADDRESS OF THE FIRST RCSR (STORED AT ‘SBASE') AND 
ITS INTERRUPT VECTOR (STORED AT 'S$VECT1'); AND WILL BE ABLE 
TO ADDRESS ANY DLV11-F STARTING AT THE SPECIFIED BASE ADDRESS 
UP TO 16 CONSECUTIVE DEVICES 
EXAMPLES: SBASE: 175610 

SVECTI: 300 


THE PROGRAM WILL BE ABLE TO TEST ANY DOLVI1-F WITHIN THE 
ADDRESS RANGE 175610 --> 176000 


SBASE AND SVECT1 DEFAULT TO 175610 AND 300 RESPECTIVELY 
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SEQ 0006 


THE PROGRAM ASSOCIATES UNIT NUMBERS AS FOLLOWS: (NUMBERS IN 
PARENTHESIS ARE OCTAL) 
UNIT#O -- BASE ADDRESS STORED AT ‘SBASE' 
ASSOCIATED BASE VECTOR STORED AT ‘SVECTI' 
UNIT#1 -- BASE ADDRESS + (10) 
_ BASE VECTOR + (10) 
uP TO 
1 
UNIT#14 -- BASE ADDRESS + (160) 
BASE VECTOR + (160) 


LOCATION ‘SDEVM' IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE PRESENT AND WILL BE TESTED 


BiT 15 BIT 14 BiT 1 BIT O 


! CON- |! UNIT ! 
a 


A BIT MAP CAN BE ENTERED AT ‘SDEVM' PRIOR TO STARTING THE 
PROGRAN. 


EXAMPLE: 
175610 
: 300 
S$DEVM: 100013 


THE PROGRAM WILL TEST- 
UNIT#O 175610 
UNIT#1 175620 
UNIT#3 175640 
CONSOLE 177560 


OPTIONS 


LOCATION SUSWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE 
VALUES IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD 
CONFIGURATION. 
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SEQ 0007 

THE DEFAULT VALUE OF SUSWR IS AS FOLLOWS: 
BIT POSITION DEF INI TION DEFAULT VALUE 

0-3 # OF DATA BITS 10(8) = 8 

4 PARITY ENABLED - (SEE Q = NO 

5 EVEN ODD PARITY-/ NOTE) O = 00D 

6 COMMON SPEED 1 = YES 

? PROGRAMMABLE BAUD RATE 0 = NO 

8-11 BAUD RATE OFFSET 02(8) = 110 BAUD 

(SEE FOLLOWING NOTE) 

12 BREAK GENERATION ENABLED 1 = YES 

13 WRAP CONNECTOR INSTALLED 0 = NO 

14 MAINT JUMPER (SEE NOTE) O = NO 

15 ERROR BITS ENABLED 0 = NO 


NOTE ON BITS <4: 5> 
THIS DIAGNOSTIC DOES NOT TEST THE PARITY LOGIC. 


NOTE ON BITS <7: 11> 


WHEN THE PROGRAMABLE BAUD RATE OPTION IS 
ENABLED THE PROGRAMABLE BAUD RATE TEST 
WILL EXIT WITH THE BAUD RATE SET TO THE 
SELECTED VALUE. TO CHANGE THE DEFAULT 
VALUE OF 110 BAUD REPLACE BITS <11: 8 
WITH THE OFFSET INDICATED IN THE TABLE 
AT THE END OF THE PBR TEST. (TEST #16) 


NOTE ON BIT 13 


THIS SWITCH WHEN ON WILL ALLOW THE 
TESTING OF THE EIA DRIVERS AND RECEIVERS 
OR THE 20 MA DRIVERS AND RECEIVERS. 


IN ORDER TO TEST THE EIA DRIVERS —. RECEIVERS 
A WRAP CONNECTOR THAT CONNECTS PINS F TO J 

AND PINS M TO E MUST BE INSTALLED IN 

THE 40-PIN HEADER. 


IN ORDER TO TEST THE 20MA DRIVERS AND 
RECEIVERS A WRAP CONNECTOR THAT CONNECTS 
PINS E TO H AND PINS K TO KK MUST BE 
INSTALLED IN THE 4O-PIN HEADER. 


NOTE ON BIT 14 


THIS SWITCH WHEN ON WILL ALLOW THE DIAGNOSTIC 
TO TEST IN MAINTAINCE MODE. IT 1S ASSUMED THAT 
THE MAINTAINCE JUMPER IS INSTALLED ON ALL OF 
THE DLV11-F MODULES WHEN THIS BIT IS SET. 


DLV11-F INDIVIDUAL TEST REQUIREMENTS TABLE 


Mf 
C\ 


Pa! 2! 3! 4! 6! 6! 71908910912'13'14'15'16!'17'20'21'22'23 SEQ 0008 cy 
Fo teeth FF IKKE Nel tbl tele eel 1 bette eel ee! 

' ' 144! ' 144! +4144! ' ' ' ' ' 

Ps ee es 

‘Kx! ee oe ee ee ee ee ee ne 

; 4 weg > & F 2 4 

FR Feng 

' ' 

! ' 


TEST & ' 
CONSOLE DEVICE ' 
APT ENVIRONMENT ' 
(MAINT) BIT SET ' 
(WRAP CON) BIT SET ' 
(ERROR BITS) BIT SET ! 
(COM SPD) BIT SET { 
(BREAK) BIT SET ! 
(PROG BAUD RATE) BIT SET! 


++ TEST WILL NOT RUN IF THIS CONDITION IS 
-- TEST WILL NOT RUN IF THIS CONDITION IS F 
xx TEST WILL NOT RUN IF ALL OF THE CONDIT 


AL SE. 
IONS IN THIS COLUMN ARE FALSE. 
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2.5 


EXECUTION TIMES. 


EXECUTION TIMES ARE FOR AN LSI-11 PROCESSOR WITH ALL OPTIONS 
ENABLED ON THE DLV11-F (EXECPT FOR PROGRAMMABLE BAUD RATE). AT 
110 BAUD. AND NOT AT THE CONSOLE ADDRESS. 


FIRST PASS- 90 SECONDS 
ADDITIONAL PASSES 95 SECONDS 
ADDITIONAL DEVICES 95 SECONDS 


THE TEST TIME 1S BAUD RATE DEPENDANT; HIGHER BAUD GIVES 
SHORTER PASS TIMES. 


IF THE DIAGNOSTIC IS RUN AT THE CONSOLE 
ADDRESS THE RUNNING TIME IS 5 SECONDS PER PASS. 


ERROR INFORMATION. 


SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4-K OF MEMORY THE 
ae Pht tm i IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 
| LL ; 


TEST# 

WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING SLU'S. 

FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 


BITS 15,13.10 AND 9 OF THE SWITCH REGISTER CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR |S CAUGHT. 


BIT 15 - CAUSES THE PROGRAM TO HALT IN THE ERROR 
ROUTINE. CONTINUEING THE PROGRAM CAUSES IT TO 
PROCEED. 

BIT 13 - DISABLES THE PRINTING OF THE ERROR MESSAGE. 

BIT 10 - CAUSES THE BELL TO RING ON ERROR. 


BIT 9 - CAUSES THE eed TO LOOP FROM BEGINNING 
OF TEST TO ERR 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
ERROR HALTS 
THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE. AND 


1S EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS 


SEQ 0009 
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SEQ 0010 


4.0 PERFORMANCE AND PROGRESS REPORTS. 


4.1 PERFORMANCE REPORTS. 


AS EACH DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
FOLLOWING WILL BE TYPED: 


OTR: none » CECI: weuce - ERRORS: ---. 
WHERE. "CSR: 2 " 1S THE DEVICE CSR UNDER TEST 
"VECTOR: _." IS THE ASSOCIATED VECTOR 
AND ‘ERRORS: _.' IS THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
ON THIS PASS 
NOTE 


THIS tS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS. 


AFTER ALL DEVICES HAVE BEEN EXERCISED AN END PASS STATEMENT IS 
" “ENDPASS®_____. “ 


5.0 DEVICE INFORMATION TABLES 


ween ee ee wm we ee ee eee Be ee eee 


1S 8648 it 3s wt 10 9 8 ? 6 5 4 3 2 1 0 
nee pee wnned wanes +> + meet webs waa + "> T1-°2" | eee weed eed eee eee 


RCSR! ( : i 'RCUR! ' ? IRCVRIRCUR! : ' : ’ ‘ROR ! 

\ ' ' 1acT ! ' ' 'DONE'IE ! ' ' ' ' 'ENB ! 

meretrierreriniiirierinrneriiticnienenrr errr tiir 
RBUF'ERRO'OR ‘FR !P ! RECEIVED DATA BUFFER 


R JERR TERR ‘ERR! | !$ Ff 3 
SENURENSEAER EES LEEEAUEE EEE EEE OETA LEYTE LEE ELLE ELE EE LEE EL TEE 


TCSR! PROGRAMMABLE BAUD !PBR ! : 'XMITIXMIT! ! ! 'MAIN! 'BREA! 
' RATE SELECT 'ENAB! : ‘ROY '1— ! ! ! 'T ! 'K ! 
OSPSRSSESESTS DSSS sess S sii loss stesso tetas esses esos ste e ses os ose 


TBUF ‘ ’ ! ! ' ' : TRANSMITTER DATA BUFFER 
! 


i ' ' ' ! ' ' 
TTTTTTTTTTTTTTTTTTTTTTT TTT TTT TTT TTT 


NOTE 


BLANK BOXES INDICATE UNUSED AND RESERVED 
BIT POSITIONS. SEE _THE LISTING FOR AN 
EXPLANATION OF THE BITS 


. § 
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6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


THIS TEST VERIFIES THAT THE ADDRESS AS PLACED IN_ THE 
HARDWARE P-TABLE TO BE CORRECT AND THE OLV11-F 
RESPONDS TO THAT ADDRESS SPACE 


TEST 2 BREAK - TCSRO SET. CLEAR. RESET 
TEST 3 MAINT - TCSR2 SET. CLEAR. RESET 
TEST 4 XMITIE - TCSR6 SET. CLEAR. RESET 


TEST 5 RCVRIE - RCSR6 SET. CLEAR. RESET 


THE FOLLOWING 4 TESTS VERIFY THAT RESET (INIT) INITIALIZES 
READ ONLY BITS. 


TEST 6 RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


WITH A CHARACTER AND THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 12 OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


RESULTS IN  RCVRDONE SETTING WITHIN 
REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 
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TEST 13 RCVRDONE IS CLEARED BY READING RBUF 


TEST 14 RCVRACT - RCSR 11 - SETS WHEN A START BIT IS 
AS Nie AND CLEARS WHEN RCVRDONE - RCSR 7 - 


TEST 15 OVERRUN BIT - RBUF 14 
TEST 16 PROGRAMMABLE BAUD RATE TEST TEST AT ALL SPEEDS 
AVAILABLE A COMPARISON WILL BE MADE TO SEE IF 
NEW TIME 1S LESS THAN PREVIOUS. 
TEST 17 TRANSMITTER INTERRUPT LOGIC TEST 
LOGICALLLY THIS 1S 4 SEPARATE TESTS 
A) DOES TRANSMITTER INTERRUPT LOGIC WORK 
B) AT PRIORITY OF O 
C) AND ONLY ONCE 
D) BUT NOT WITH INTERRUPT ENABLE CLEAR 
TEST 20 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 
OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 
CHARACTER MODE. 
TEST 21 TEST ACTUAL DATA TRANSFERED NON-INTERRUPT 


MAINTENANCE BIT SET 


TEST 22 TEST DATA THROUGH WRAP 


MODE. 


WITH BREAK SET AND COMPARE RECEIVED WITH O. 


TEST 25 NOT A TEST - SEND BACK TO LOOP 


SEQ 0012 
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NOTE 


FOR ALL OF THE FOLLOWING ROUTINES THE USE 
OF (RS) IS PART OF THE LINKAGE MECHANISN 
BETWEEN THE CALLER AND THE CALLED 


ROUTINE: TIMER 


THIS ROUTINE 1S USED TO TEST THE STATUS OF 
ANY BIT IN ANY REGISTER. 


INPUTS 
HOWL ONG THE MAXIMUM AMOUNT OF TIME TO 
SPEND IN THIS ROUTINE. 
WHICHBIT A MASK WITH THE BIT(S) SET THAT 
ARE TO BE CHECKED 
REG A POINTER TO THE REGISTER TO BE 
CHECKED 
SETCLR THE DESIRED RESULTS -- EITHER SET 
OR CLEAR 
OUTPUT: 


THE ‘'C' BIT IS SET TO INDICATE AN ERROR BUT IT 
1S TESTED BY THE IF. ERROR STATEMENT. 


ROUTINE: DATLNG 


THIS ROUTINE SETS UP A MASK FOR DATA. WITH - 


INPUT: NOTHING IS PASSED TO THIS ROUTINE BUT GLOBAL 
INFORMATION 1S ASSUMED TO EXIST: 
SUSWR-- THE WORD FOR SOFTWARE PARAMETERS 
DATA-- A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 


OUTPUT---- 
MASK-- A MASK OF BINARY ZEROS RIGHT- JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN SUSWR. WORD. 
ROUTINE: WAIT 


THIS ROUTINE 1S USED TO DELAY EXECUTION OF THE 
MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 
THIS 1S ACCOMPLISHED BY INCREMENTING A 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MICRO SEC 


SERVICE ROUTINE: INTSRV 


THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 


SEQ 0013 
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ROUTINE: 


"INTFLAG' EACH TIME IT J'S CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 


CYCLE 


ADDRESS OF ODLV11-F UNDER TEST. ADRS +2 TO 
POINT TO THE VECTOR OF THE DOLV11-F UNDER TEST. 
ih TRACK OF THE CURRENT DEVICE AND BIT 


SEQ 0014 
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000011 


177776 


177774 
177772 
177570 
177570 


000000 


000007 


000000 
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a 

. TITLE MAINDEC-22-CVDVCB- 
COPYRIGHT (C) 1977 
*XDIGITAL EQUIPMENT CORP. 
sKMAYNARD. MASS. 01754 


+x 
* ¥PROGRAN BY ODES CHOATE 


x 
;XTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
oO (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


BTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


§ 

;x 

ok 

x 

eS 5 HALT ON ERROR 
;* LOOP ON TEST 
eS INHIBIT ERROR tt ae 
| INHIBIT ITERATIONS 

‘* BELL ON ERROR 

eS LOOP ON ERROR 

mS LOOP ON TEST IN SWR<7: 0> 


.SBTTL BASIC DEFINITIONS 
i OF THE STACK POINTER &xXx 1100 Xxx 


STACK= 
. EQUIV EMT, ERROR ++BASIC DEFINITION OF ERROR CALL 
. EQUIV. OT. SCOPE +;BASIC DEFINITION OF SCOPE CALL 
; MISCELLANEOUS DEFINITIONS 
HT= 11 +-CODE FOR HORIZONTAL TPB 

+-CODE FOR LINE FEED 

+-CODE FOR CARRIAGE RETURN 

+-CODE FOR CARRIAGE RETURN-LINE FEED 

+; PROCESSOR STATUS WORD 


+: STACK LIMIT REGISTER 

+- PROGRAM INTERRUPT REQUEST REGISTER 
+; HAROWARE SWITCH REGISTER 

+; HARDWARE DISPLAY REGISTER 


*XGENERAL PURPOSE REGISTER DEF IN! TIONS 
RO= %0 NERAL RESISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


1= “1 

2= %2 

3s %3 

Y= %4 +; GENERAL 
5= “45 +;GENERAL REGISTER 
6= %6 +; GENERAL REGISTER 
7s ? ;;GENERAL REGISTER 
P= . +; STACK POINTER 
Y 


R 
R 
R 
R 
R 
R 
P 
$ 


PC 
, PRIORI 
PRO= 


+; PROGRAM COUNTER 


TY LEVEL DEFINITIONS 
0 ;;PRIORITY LEVEL O 
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000040 7;PRIORITY 
000100 >;PRIORITY 
000140 >;PRIORITY 
000200 >; PRIORITY 
000240 >;PRIORITY 
00C300 +;PRIORITY 
000340 >; PRIORITY 


> "SWITCH REGISTER” SWITCH DEFINITIONS 
SWi5= 100000 


100000 


000001 1 

SWO9. SWI 
SWO8, SW8 
SWO7, SW7 
SWO6. SW6 
SWOS. SWS 
SWO4, SW4 
SWO3, SW3 
SWO2, SW2 
SWO1, SW1 
SWOO0. SWO 


BIT DEFINITIONS (BITOO TO BIT15) 
100000 100000 
040000 
020000 


000001 


STNETD tte em Gn Bh. 6 Om en OD ee Gk Ge - s n Hs 
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000004 


175610 


177777 
000000 


004000 


000200 
000100 


000001 
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TO6, BIT6 
05,B1TS 
TY 


;XBASIC "CPU" TRAP VECTOR ADDRESSES 
ERRVEC= 4 ++ TIME OUT AND OTHER ERRORS 
RESVEC= +>RESERVED AND ILLEGAL INSTRUCTIONS 
TE ITVEC +7 "T" BIT 
TRIVEC= ++ TRACE TRAP 
BPTVEC= ++BREAKPOINT TRAP (BPT) 
1OTVEC= ++ INPUT/OUTPUT TRAP (IOT) XKkSCOPEXX 
PWRVEC= +;POWER FAIL 
EMTVEC= 30 +; EMULATOR TRAP (EMT) XKERRORXX 
TRAP VEC=34 ++ "TRAP" TRAP 
++ TTY KEYBOARD VECTOR 
+; TTY PRINTER VECTOR 
PIRQVEC=240 +;PROGRAM INTERRUPT REQUEST VECTOR 


BAD= R3 
REGISTER=R1 
BIT= R2 
FUNCT= R3 
LEAD= R2 
FOLLOW= RY 
DLADDR= 175610 


; THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
CLR= OO 


+6 AAMAAAAERAERERE AREA EEE E AAA ARR A AAA AAA AR REAR AES 
RCSR REGISTER BIT NAMES 
jE AES ERAN ESSERE EEDA EEE OATES AEE AEE 
, N 
+ UNUSED 
+ UNUSED 
+ UNUSED 
RCVRACT= 
+ UNUSED 
+ UNUSED 
+ UNUSED 
RCVRDONE = 


+ RECEIVER ACTIVE INDICATOR 


+ RECEIVER DONE 
> RECEIVER INTERRUPT ENABLE 


DODD ODDVBODOOOWTOOOD 
AHA AHHH tt ts 
DOOD DDO0O0O0O HH HH ee 
O-NWNFEHSNDOO—NHWSW 


DRRUN= + READER RUN 





io to 2 
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+s MEXKKEREKRRRE AERA EAA AL AAR E RARER AERA EAA ARRAN AERA AA AA AEA EES 
RBUF REGISTER BIT NAMES 
etttstcettstitttstiettitiiststtititestttissetttt tet ttt ttt e ett tt 
100000 ERROR= BiT15 + ERROR INDICATOR 
04CO0U ORERR= + OVERRUN ERROR 
020000 FRERR= + FRAMING ERROR 
010000 PERR= > PARITY ERROR 
+ UNUSED 
+ UNUSED 
+ UNUSED 
; UNUSED 
000200 RDATA7= 
000100 RDATAG= 
000040 RDATAS= 
000020 RDATAY= 
000010 RDATAS= 
000004 ROATAZ= 
000002 RDATAI= ; 
000001 RDATAO= +7 


ee 22 fo 2 9 2 & 9 & > & > 9 & & & 2 9 9 8 8 8 0 oD 0 0 09 0300002222222 2 2 2 2 228 2 2 2 02 8 0 0 08 
+ TCSR REGISTER BIT NAMES 
Pee 2 & © 2 ® 9% & ® © & > > > 9 3 3 9 9 2 8 3 0 0 8 9 0 9 9 3033802 3 222 8 2 2 2 2 2 2 2 2 2 2 2 0 8 0 2 0 8 0 0 0 | 
100000 PBAUD3= BIT15 ; 
040000 PBRUD2= BiT14 ; PROGRAMMABLE BAUD 
020000 PBAUD1= ; 7 RATE BITS 


010000 PBAUDO= t # 
004000 PBAUDSE T= + ENABLE SETTING OF 
+ PROGRAMMABLE BAUDE RATE 
+ UNUSED 
+ UNUSED 
+ UNUSED 
000200 XMITROY= 
000100 


RECEIVED DATA BITS 


NWF UIONDOWO—hd 


SE ee | 
COO000000——— 


o 
— 


— oe 
—NW 


+ TRANSMITTER READY 
> TRANSMITTER INTERRUPT ENABLE 


000004 
000001 


; MAINTENANCE SET BIT 
+ SEND BREAK (CONTINUOUS SPACE) 


BDODwDBwDMODODODOOD DOD 
Ne ee mee ee 
CO00000000— 
O-NWNFEUFVNOVDO 


ee 22S oo 2S 2 2 8 8 8 ¢ 8 & F Fd > & 9 2 92933298 28 0 08 0 0 8 0 00050 0 0 8 0 0208 2 2 08 8 0 8 | 
+ TBUF REGISTER BIT NAMES 
ohcabcrnicnaeity ~~" ~ amma Neen natal rca acai: 
UNU 


; UNUSED 

+ UNUSED 

; UNUSED 

; UNUSED 

+ UNUSED 

; UNUSED 

UNUSED 
000200 TDATA?= 
000100 TOATAG= 


wo 
~ 
— 
w 


wowowwwwow 
Se ieee Ae eee eee Ieee, Bee Meee Hee] 
OOOO Re 
SCnNWWOK-NWS 





vz 
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000040 


00c001 


000017 
000020 
000040 
000100 
000200 


007400 
010000 
020000 
040000 
100000 


000000 


000174 
000174 090000 
000176 000000 


874 
875 000200 000137 


TOATAS= ; | 

TOATAY= ; TRANSMITTER DATA BUFFER 
TOATAS= i # 

TOATAZ= 

TDOATAI= 

TOATAO= 


75 AAAAAAKARARERAR AREA EAA ER ERA EAE EERE A A AAA AEA A AEE 
> FLAG BITS TO BE USE OR CLEARED IN SUSWR. 


DATA = 
PARITY = 


; BAUDE MUST BE ON THE UPPER 
; BYTE BOUNDRY “— BITS 


MAINT JUMP = 

ERRBITS = 100000 
re S222 22 oo 2 2 2 2 2 2d 8S oF 0D 02 2 0 8 2 0 2 0 3 2 8 8 8 8 F 8 8 0 0 8 0 6 0 0 0 0 9 0 000000000 08 8 | 
_SBTTL TRAP CATCHER 


. =0 
+ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A". +2, HALT" 
+ SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
oa ae CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


SOFTWARE DISPLAY REGISTER 
: 1: SOF THARE SWITCH REGISTER 


ORD O 
”SBTTL STARTING ADDRESS(ES) 
001336 JMP O@#START >; JUMP TO STARTING ADDRESS OF PROGRAM 





Oz 
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000046 
000052 


000024 
000044 


001000 
001000 
001002 
001004 
001006 
001010 
001012 


H 2 
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000204 
OOCO4E 
011404 
OO00F 2 
000000 
000204 
001000 


001000 
000024 
000200 
000044 
001000 
001000 


000000 
001174 
000005 
000055 
000036 
000030 


.SBTTL ACT11 HOOKS 


Pee 2 2% % 2 do 9% 2 9 920039922238 0 8 9 0 88 0 8 0 0 0 2 0 00000 220020098228 02 0208 8 8 8 | 
, HOOKS yt hg BY ACT1I1 


> SAVE PC 
++1)SET LOC. 46 TO ADDRESS OF SENDAD IN . SEOP 


++2)SET LOC. 52 TO ZERO 
+; RESTORE PC 


. = 1000 
_SBTTL APT PARAMETER BLOCK 


25 MAXKKKKAKKAA AKER AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
>SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
25 MAXKKAKKEKK AAA AAA AAA KAA AAA AAA AAA AAA AAA AAAS 
. $Xz=. +; SAVE CURRENT LOCATION 
7;SET POWER FAIL TO POINT TO START OF PROGRAM 
+;FOR APT START UP 
+;>POINT TO APT INDIRECT ADDRESS PNTR. 
SAP THOR >;POINT TO APT HEADER BLOCK 
=. $X 7-RESET LOCATION COUNTER 
[ose poooodooooo goog opoooooo ogo oooooonoogototoioogingionioner 
: aaarace on BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
7 IN : 


SAP THD: 

SHIBTS: . 0 +; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: . ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: .. 5 +;RUN TIM OF LONGEST TEST 

SPASTM: . +;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: . 30. +>;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-SMAIL72 >; LENGTH MAILBOX-E TABLE (WORDS) 
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Oz 


CVDVCB. P11 O2-FEB-78 08: 39 TAGS SEQ 0021 
+44 .SBTTL COMMON TAGS 
1 
911 7s MAXKKKKAK AAA AAA AAA AAA RARER AAA AAA AAA ATA AAAS 
912 *XTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
ia > KUSED IN THE PROGRAM. 
14 
915 001100 =1100 
916 001100 SCMTAG: +; START OF COMMON TAGS 
917 001100 000000 WORD 0 
918 001102 000 STSTNM: .BYTE QO +;CONTRINS THE TEST NUMBER 
919 001103 000 SERFLG: .BYTE O +; CONTAINS ERROR FLAG 
920 001104 000000 $ICNT: WORD 0 +;CONTAINS SUBTEST ITERATION COUNT 
921 001106 000000 SLPADR: .WORD 0 +;CONTAINS SCOPE LOOP ADDRESS 
922 001110 000000 SLPERR: .WORD 0 +: CONTAINS SCOPE RETURN FOR ERRORS 
923 001112 000000 SERTTL: .WORD O +;CONTAINS TOTAL ERRORS DETECTED 
924 001114 000 SITEMB: .BYTE O +; CONTAINS ITEM CONTROL BYTE 
925 001115 001 SERMAX: .BYTE 1 +; CONTAINS MAX. ERRORS PER TEST 
926 001116 000000 SERRPC: .WORD O *+CONTAINS PC OF LAST ERROR INSTRUCTION 
927 001120 000000 SGDADR: .WORD 0 +-CONTAINS ADDRESS OF ‘GOOD’ DATA 
928 001122 000000 SBDADR: .WORD U +; CONTAINS ADDRESS OF ‘BAD’ DATA 
929 001124 000000 SGDDAT: .WORD 0 +;CONTAINS ‘GOOD’ DATA 
930 001126 000000 SBODAT: .WORD O +;CONTAINS ° * DATA 
931 001130 000000 WORD 0 ++ RESERVED--NOT TO BE USED 
932 001132 000000 WORD O 
933 001134 00 SAUTOB: .BYTE OQ +; AUTOMATIC MODE INDICATOR 
934 001135 000 SINTAG: .BYTE 0 +; INTERRUPT MODE INDICATOR 
935 001136 000000 WORD 0 
936 001140 177570 R: WORD ODSWR + ADDRESS OF SWITCH REGISTER 
937 001142 177570 DISPLAY: .WORD ODISP +; ADDRESS OF DISPLAY REGISTER 
938 001144 177560 TKS: 177560 +; TTY KBO STATUS 
939 001146 177562 STKB: 177562 +; TTY KBO BUFFER 
940 001150 177564 STPS: 177564 +; TTY PRINTER STATUS REG. ADDRESS 
941 001152 177566 STPB: 177566 ++ TTY PRINTER BUFFER REG ADDRESS 
942 001154 000 SNULL: BYTE 0 +; CONTAINS NULL CHARACTER FOR FILLS 
943 001155 002 SFILLS: .BYTE 2 +;CONTAINS ® OF FILLER CHARACTERS REQUIRED 
944 001156 012 SFILLC: .BYTE 12 ++ INSERT FILL CHARS. AFTER A “LINE FEED" 
945 001157 000 STPFLG: .BYTE O ++ "TERMINAL AVAILABLE” FLAG (B1T<07>=0=YES) 
946 001160 000000 STIMES: ++ MAX. NUMBER OF ITERATIONS 
947 001162 o00 SESCAPE: 0 > ESCAPE ON ERROR ADDRESS 
948 001164 177607 000377 S$BELL: .ASCIZ oe carvasares :;CODE FOR BELL 
949 001170 07 SQUES: .ASCII +; QUESTION MARK 
950 001171 015 SCRLF ASCII <8) *+ CARRIAGE RETURN 
951 001172 000012 LP: .ASCIZ ¢12> +LINE FEED 
952 Pestistitttttettttttittttttt ttt ttt titi ttt testi ttt tt ttt tat tt 
964 .SBTTL APT MAILBOX-ETABLE 
an / :> ~_ een ceeneemss teen anes animate neni: 
: N 
957 001174 SMAIL +; APT MAILBOX 
958 001174 000000 SMSGTY: .WORD AMSGTY ;; MESSAGE TYPE CODE 
959 001176 000000 SFATAL: .WORD AFATAL ;; FATAL ERROR NUMBER 
960 001200 000000 STF°TN: .WORD ATESTN ;; TEST NUMBER 
961 001202 000000 $FasS WORD APASS ;;PASS COUNT 
962 001204 000000 SDEVCT: .WORD ADEVCT ;; DEVICE COUNT 
963 001206 000000 SUNIT: WORD UNIT ;; 170 UNIT NUMBER 
964 001210 000000 SMSGAD: .WORD AMSGAD ;; MESSAGE ADDRESS 
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001222 


001224 
001225 


001226 
001230 


001254 


000000 
000 
000 

000000 

011110 

000000 


000000 


100000 
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APT MAILBOX-ETABLE 


SMSGLG: 


ANSGLG 


ACPUOP 


AMAMS1 
AMNTYP 1 


AMADOR 1 


AMANSZ 
ANTYP2 
AMADP 2 
AMANS3 
ANTYP3 
AMADOR 3 
AMAMNSY 
AMNTYPY 


AMADRY 
AVECTI 
AVECT2 
ABASE 
ADE VM 


SEQ 0022 


+; MESSAGE LENGTH 
>; APT ENVIRONMENT TABLE 
+> ENVIRONMENT BYTE 
>;ENVIRONMENT MODE BITS 
+;APT SWITCH REGISTER 
+, USER SWITCHES 
>>CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01, 11705=02. 11/20=03,. 11/740=04, 11745=05 
11/70=06, P0Q=07, Q=10 
REAL TIME CLOCK 
FLOATING POINT PROCESSOR 
MEMORY “sored 


(HIGH BYTE) 


300 NSEC BIPOLAR= 002 
500 ot i. 003 
+; HIGH ADDRESS. B 
MEM. LAST ADOR. os BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
++ HIGH ~ oy tye M.S. BYTE 
+2 MEM. TYPE, BLK#2 
+; MEM. LAST ADDRESS. BLK#2 
+ HIGH ADDRESS. M. S. BYTE 
+7 MEM. TYPE, BLK#3 
77 MEM. LAST ADDRESS. BLK&3 
+;HIGH ADORESS. M. S. BYTE 
+; MEM. TYPE, BLKS4 
+; MEM. LAST ADDRESS. BLK&4 
++ INTERRUPT VECTOR#1,BUS PRIORITY#1 
+2 INTERRUPT VECTOR#2BUS PRIORI TY#2 
+;BASE ADDRESS OF EQUIPMENT UNDER TEST 
+; DEVICE MAP 
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001254 


001254 
061256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001334 


175610 
000300 
175610 
175612 
175614 
175615 
175616 
000000 
000020 
000000 


2 
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ERROR POINTER TABLE SEQ 0023 
.SBTTL ERROR POINTER TABLE 


>XTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

*XTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;XLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE |S PERTINENT. 

; XNOTE1: iF SITEMB 1S O THE ONLY PERTINENT DATA IS (SERRPC). 

+ KNOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


+;POINTS TO THE ERROR MESSAGE 
>;POINTS TO THE DATA HEADER 
+;POINTS TO THE DATA 
+;POINTS TO THE DATA FORMAT 


DLADOR 


}: 0 
. BLKW 20 >FOR RS STACK 
RSSTACK: . WORD O 





M 
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1027 001336 START: 
8 .SBTTL INITIALIZE THE COMMON TAGS 
+: CLEAR THE COMMON TAGS (SCMTAG) AREA 
001336 012706 001100 MoV #SCMTAG. R6 ;;FIRST LOCATION TO BE CLEARED 
001342 005026 CLR (R6)+ ;;CLEAR MEMORY LOCATION 
001344 022706 001140 CMP @SWR.R6 ;; DONE? 
001350 001374 BNE -6 +;LOOP BACK IF NO 
001352 012706 001100 MOV #STACK, SP +; SETUP THE STACK POINTER 
ne A FEW VECTORS 
001356 012737 013326 #SSCOPE, SBIOTVEC >; 1OT VECTOR FOR SCOPE ROUTINE 
#340, SRIOTVEC+2 >> LEVEL 7 
#SERROR, QSENTVEC CENT VECTOR FOR ERROR ROUTINE 
#340, SBENTVEC+2 > LEVEL 7 
RSTRAP. SETRAPVEC ;; TRAP are FOR TRAP CALLS 
#340. d# TRAPVEC+2; LEVEL 


001470 


001476 


001532 
001534 


001644 


012767 


013746 
012737 
012767 
012767 
022777 
001012 


000403 


012637 


005067 
132767 
001403 
012767 


005227 
001037 
022737 
001433 
104401 


005737 
001012 
126727 
001406 


001470 


000004 


177777 


001544 
000176 
000174 
000004 


177412 
000200 


001216 


177777 
011404 
001672 
000042 
177352 


007700 


177433 
177416 
177412 


000004 
177422 
177416 
177406 


177366 
177362 


177417 


177332 


000042 


000001 


#SPWRON, OSPHRVEC Pov FAILURE VECTOR 


#340, DEPHRVEC +2 
SENDCT. SEOPCT 
IMES 


scl€ 


+; SETUP END-OF-PROGRAM COUNTER 

+; INITIALIZE NUMBER OF ITERATIONS 

+7CLEAR THE ESCAPE ON Tar ADDRESS 

+-ALLOW ONE ERROR PER TEST 

HP THE LOOP ADDRESS FOR SCOPE 
P THE ERROR LOOP ADDRESS 


MoV , SLPERR + SET 
>S1IZE FOR A HARDUARE SWITCH REGISTER. 1F NOT FOUND OR IT IS 
EQUAL i "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 


OFERRVEC, - (SP) 
#64S, QBERRVEC 


#OSWR, SHR 
#001SP. DISPLAY 
#-1, dSWR 
66$ 
65$ 
#65$. (SP) 
#SWREG, SWR 
#0 1SPREG. DISPL 
(SP)+ OBERRUEC 
SP 3 
#APTSIZE, SENVM 
67$ 

we #SSWREG. SHR 

ey MS TYPE PROGRAM N 


AME 
> TYPE — as PROGRAN iF Rae PASS 


68$ 
ens 


TST 
BNE 70$ 
CMPB SENV. #1 
BEQ 70$ 


++ SAVE ERROR VECTOR 


DWARE sik 
+;BRANCH IF NO TIMEOUT TRAP OCCURRED 
+;AND THE HARDWARE SWR IS NOT = -1 
+-BRANCH IF NO TIMEOUT 
+;SET UP FOR TRAP RETURN 


a ree TO SOFTWARE SWR 
"ss RESTORE ERROR VECTOR 


;;CLEAR PASS COUNT 

+; TEST USER SIZE UNDER APT 
7; YES.USE NON-APT SWITCH 
+;NO,.USE APT SWITCH REGISTER 


T TIME? 
: 3: BRANCH 1F NO 
+;ACT-11? 
soo. iF YES 
YPE ASCIZ STRING 


YPE , 69$ 
Get VALUE _ SOF TWARE sii Teh REGISTER 


—E WE RUNNING UNDER XxXDP/ACT? 
>; BRANCH IF YES 
>; ARE WE RUNNING UNDER APT? 
>; BRANCH IF YES 





M 
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001646 026727 177266 006176 CMP SWR, #SWREG +; SOFTWARE SWITCH REG SELECTED? 
5 BNE 71$ +;>BRANCH IF NO 
. aay 1a +;GET SOFT-SWR SETTINGS 
112767 000001 177244 ho a MOVB #1, SAUTOB ++SET AUTO-MODE INDICATOR 


001670 000410 BR 688 7;GET OVER THE ASCIZ 
77698: .ASCIZ <CRLF>*MD-22-CVDVC-BE<CRLFD> 
001712 685: 





Mi 
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001712 - WHILE SODEVM EQ #0 DO 
005767 177334 TST SOE VN 
001101 BNE $2 
TYPTXT <<CRLF>!1 HAVE NO DEVICE TO TEST. !> 
TYPTXT <<CRLF>!SET UP SDEVM TO INDICATE ACTUAL CONFIGURATION. !> 
TYPTXT <<CRLF>!TYPE PROCEED (P) TO CONTINUE. !> 
000000 HAL T 
ENDDO 


000674 BR $1 
LET INITFLAG := #1 
LET BITMASK := @#BIT1S5 ; START AT CONSOLE 


012767 000001 006754 #1. INITFLAG 
012767 100000 006744 #81715. B81 TMASK 
LOOP: 


CYCLE + NO ARGUMENTS--ADORS -> NEXT ADDRESS 
002136 004767 006520 PC. CYCLE ‘ 
; ADORS+2 -> NEXT VECTOR 


GET UNIT ADORESS 
002142 LET DLADD : = (ADRS)+ 
002142 012167 177106 (ADRS) +, DLADD . 

+GET UNIT VECTOR 


002146 LET OLVEC : = (ADRS) 
002146 011167 177104 (ADRS). OLVEC 
002152 ADRS := DLADD 
002152 016701 177076 DLADD. ADRS 
+RCSR = OLADD + QO 
RCSR_ := DLADD 


002156 = 


oe a eo ne gn et ne 


WONEHEGN-ODOUE 


016767 177072 177074 DLADD. RCSR 


016767 177064 177070 DLADD. RBUF 
062767 000002 177062 #2. RBUF 


016767 177050 177056 DLADD. TCSR 
062767 000004 177050 #4, TCSR 


016767 177034 177044 DLADD. TCSRH! 
062767 000005 177036 #5, TCSRHI 


016767 177020 177032 DLADD. TBUF 
062767 000006 177024 #6, TBUF 


002244 012705 001334 #RSSTACK, RS 
002250 000005 


RBUF := DLADD + #2 


TCSR := DLADD + &4 


TCSRHI : = DLADD + #5 


BRSRRICN Bawa nen sosss 


TBUF := DLADD + #6 


RS : = #@RSSTACK 
++ BRESET 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Oe et et ee ee ek Oe ee oe me eee eek Oe ped ped ee pe Oe eh ped ee ge 
NOMS WN-—OVONEUSWN— 


WWWWWW 
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1138 +s MXXEXAEAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
1139 ;XTEST 1 ADORE SSABIL ITY 
1140 ; THIS TEST VERIFIES THAT THE ADDRESS AS PLACED IN 
1141 ;* THE HARDWARE P-TABLE TO BE CORRECT AND THE DLV11-F RESPONDS 
1142 ;x TO THAT ADDRESS SPACE 
1143 7+ MAXAKERAAAAAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KK 
1144 002252 000004 TST1: SCOPE 
1145 002254 012767 OQO00002 176676 MOV #2, STIMES +700 2 ITERATIONS 
1146 002262 012767 000001 176710 MOV #1, STESTN +;SET TEST NUMBER IN APT MAIL BOX 
1147 002270 LET ADRS : = DLADD 
1148 002270 016701 176760 MOV DLADD. ADRS 
1149 + SET UP INTERRUPT 
1150 002274 SETVEC #ILLMEM, #INTSRV, #PR7 
1151 002274 010146 MOV R1,-(SP) 
1152 002276 012701 O00004 MOV #@ILLMEM, R1 
1153 002302 012721 010652 MOV # INTSRV, (R1)+ 
1154 002306 012711 000340 MOV @PR7, (R1) 
1155 002312 012601 MOV (SP)+,R1 
1156 002314 LET 1 := #0 
1157 002314 005067 176752 CLR | 
1158 002320 REPEAT 
1159 002320 $3: 
1160 002320. BGNSUB 
1161 002320 012767 002326 176562 MOV #64S, SLPERR 
1162 + CLEAR FLAG 
1163 002326 LET INTFLAG : = #0 
fice 002326 005067 006326 CLR INTFLAG 
1 
1166 ;READ FLAG 
1167? 002332 005711 TST @ADRS 
1168 002334 iF INTFLAG NE #0 THEN 
1169 002334 005767 006320 TST INTFLAG 
1170 002340 001401 BEQ $4 
1171 > FATAL ERROR 
1172 002342 ERROF 1.,NOOL 
1173 002342 1049001 ERROR 1 
1174 002344 ENDIF 
1175 002344 $4: 
1176 002344 ENDSUB 
1177 002344 LET 1:2 1 + #2 
1178 002344 062767 000002 176720 ADD #2, | 
1179 002352 LET ADRS := DLADD + | 
1180 002352 016701 176676 MOV DLADD, RORS 
1181 002356 066701 176710 ADD 1, ADRS 
1182 002362 UNTIL | EQ #8 
1183 002362 026727 176704 000010 CMP 1, #8 
1184 002370 001353 BNE $3 
1185 002372 CLRVEC ILLMEM 
1186 002372 010146 MOV R1,-(SP) +;PUSH R1 ON STACK 
1187 002374 010246 MOV R2,-(SP) ;+PUSH R2 ON STACK 
1188 002376 012701 000004 MOV #ILLMEM, R1 
1189 002402 010102 MOV , 
1190 002404 062702 000002 ADD #2,R2 
1191 002410 010221 MOV R2, (R1}+ 
1192 002412 005011 CLR (R1) 
1193 002414 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
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002416 012601 
002420 


. ¢ 
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ADORESSABILITY 
MOV (SP)+,R1 


;POP STACK INTO R1 


END OF TEST 


ENDTST 


SEQ 0028 
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+; MEXKEREREREAE ALARA AAA AAA AERA AREA EAA A AAA AA AAA EY 
*>%& THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE’ BITS 
Poe 2% © & & 9 9 9 2 2 2 2 DD 9 0 8 0 2 8 9 & 9 6 0 8 0 09 8 0 0 0 0 0 0 02 2 0 0 0 0 0 0 2 000009 000000008) 


; AEXKAKAAAAAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAAS 
;KTEST 2 BREAK - TCSRO SET. CLEAR, RESET 
THE BREAK BIT 1S USUALLY USED ON THE CONSOLE 
DEVICE. IF ADDITIONAL DLV OPTIONS ARE USED 
1T 1S RECOMMENDED TO REMOVE THE ‘BG’ JUMPER AND 
CLEAR BIT 12 IN SUSWR WHICH WILL CAUSE THIS 
TEST TO BE SKIPPED. 
KAKKAKAAA AAA AAA AAA AAA AKA AA AAA AAA AAA AAA AAA AAA 
002420 000004 2: SCOPE 


002422 012767 OO00010 176530 MOV #10, STIMES +700 10 ITERATIONS 
002430 012767 000002 176542 MOV #2, STESTN +;SET TEST NUMBER IN APT MAIL BOX 


062436 IF #BRK NOTSETIN SUSWR OR #APTENV SETIN SENV THE 
032767 010000 176554 a 


000001 176540 RAP TENV, SENV 
001404 $6 


EXIT TEST =; BREAK NOT INSTALLED 
012767 000001 176474 #1,STIMES 


000452 TST3 ++-EXIT THIS TEST 
ENDIF 


002466 


> SEE IF IT IS CLEAR 
002466 BGNSUB 
002466 012767 002474 176414 #64, SLPERR 


002474 #BREAK SETIN @TCSR THEN 
002474 032777 000001 176562 hi oe 


002502 001401 
+ BREAK DID NOT RESET IN TCSR 
002504 ERRHRD 2,.D10NOT 
002504 104002 
002506 ENDIF 
002506 
002506 ENOSUB 


> TRY TO SET BREAK BIT 
002506 BGNSUB 
002506 012767 002514 176374 #64, SLPERR 
002514 LET @TCSR : = @TCSR SET. BY #BREAK 
002514 052777 000001 176542 #BREAK, aTCSR enue 


To 0 
002522 IF #BREAK NOTSETIN O@TCSR THEN 
002522 032777 000001 176534 he 1 peti 
N 1 


002530 001001 
; BREAK DID NOT SET IN TCSR 
002532 ; ERRHROD 3.,.DIDNOT 
002532 104003 
002534 ENDIF 





on i 4 


MAINDEC-11-DVDVC-B 
Pil 


CVDVCB. 


1253 
1254 
5 


002534 
002534 


002534 
002534 


002542 
002542 


002550 
002550 
002556 


002560 
002560 
002562 
002562 
002562 


002562 
002562 


002570 
002570 


002576 
002576 
002600 
002600 
002606 


002610 
002610 
002612 
002612 
002612 
002612 


O02-FEB-78 


012767 


042777 


032777 
001401 


104004 


012767 
052777 
000005 
032777 
001401 


104005 


MACY11 30A(1052) 
, T2 


08: 39 


002542 


000001 


000001 


002570 


000001 


000001 


176346 


176514 


176506 


176320 


176466 


176456 


$10: 


$12: 


O2-FEB-78 08:40 


PAGE 30 
BREAK - TCSRO SET. CLEAR, RESET SEQ 0030 


MOV 


ERROR 


MOV 
BIS 
RESET 
BIT 


BEQ 


ERROR 


ENOSUB 
> TRY TO CLEAR A SET BIT 
BGNSUB 
#64S, SLPERR 
LET @TCSR : = @TCSR CLR. BY #BREAK 


+ SHOULD HAVE CLEARED 
IF #BREAK SETIN @TCSR THEN 


#BREAK, ATCSR 


#BREAK, dTCSR 
$11 


» BREAK DID NOT CLEAR !N TCSR 
ERRHRD 4.,DIDNOT 


ENDIF 
ENOSUB 
> NOW SEE IF RESET CLEARS IT 
BGNSUB 
#64, SLPERR 
LET @TCSR := @TCSR SET. BY #BREAK 


#BREAK, dTCSR 
, ISSUE BUS RESET 
BRESET 
IF #BREAK SETIN @TCSR THEN 
#BREAK, dTCSR 
$12 
> BREAK DID NOT RESET IN TCSR 
. ERRHRD 5,.DIDNOT 
ENDIF 
ENOSUB 


ENOTST 





M 
C 


F 
MAINDEC-11-OVDVC-B MACY11 30A(1052) O2-FEB-78 08:40 PAGE 31 
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Pee £ f © © $ % 9 2 2 2 2 2 2d > 9 0 8 8 0 8 > 8 0 0 0 2 2 2 3 FD 0 0 0 0 0 2 2 28 0 8 0 0 0 2 2 2? 2 2 8 9 8 0 0 0 0 0 8 8 | 

7s MEXKKAEKAAA AAA AR AREA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AEE EK 

*KTEST 3 MAINT ~- TCSR2 SET, CLEAR. RESET 

PERS 2229 9229 o oo 2 2% 99 2 2 0 03 8 0 0 02D 8 0 08 8 9 0 02 9 0 0 23 0 0 0 0 8 0 0 000 8 0 0 2 08 0 8 8 | 
002612 000004 TST3: SCOPE 


002614 012767 O00010 176336 MOV #10, $TIMES +;D0 10 ITERATIONS 
002622 012767 O00003 176350 MOV #3. STESTN +;SET TEST NUMBER IN APT MAIL BOX 


002630 IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EQ #TRU 
032767 O40000 176362 #MAINT JUMP, SUSWR 
001404 $13 
126727 006255 000001 CONSOLE, # TRUE 
001004 $14 


EXIT TEST 
SiR THIS TEST 
ENDIF 


012767 000001 176302 #1,S$TIMES 
000452 TST4 


002660 


» SEE IF IT IS CLEAR 
002660 BGNSUB 
002660 012767 002666 176222 #64S, SLPERR 


002666 IF #MAINT SETIN @TCSR THEN 
002666 032777 OO0004 176370 a a 
1 


002674 001401 
; MAINT DID NOT RESET IN TCSR 
002676 ERRHRD 6.,.DIDNOT 
002676 104006 
002700 ENDIF 
002700 
002700 ENOSUB 


> TRY TO SET MAINT BIT 
002700 8GNSUB 


002700 012767 002706 176202 #64S, SLPERR 
002706 LET @TCSR : = @TCSR SET. BY #MAINT 
002706 052777 O00004 176350 #MAINT, ATCSR 

+ STUCK TO 0 


002714 IF #MAINT NOTSETIN @TCSR THEN 
002714 032777 OO00004 176342 Cs #MAINT, aTCSR 
N $16 


002722 001001 
; MAINT DIO NOT SET IN TCSR 
002724 ERRHRO 7,.D1DNOT 
002724 104007 
002726 ENDIF 
002726 
002726 ENDSUB 


> TRY TO CLEAR A SET BIT 
002726 BGNSUB 
002726 012767 002734 176154 #64, SLPERR 


002734 LET @TCSP : = @ATCSR CLR. BY #MAINT 
002734 042777 QOO0004 176322 #MAINT, aTCSR 





Oz 
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Pil 


002742 
002742 
002750 


002752 
002752 
062754 
002754 
002754 


002754 
002754 


002762 
002762 


002770 


003000 


003002 
003002 
003004 
003004 
003004 
003004 


032777 
001401 


104010 


012767 
052777 
000005 
032777 
001401 


104011 


MACY11 30A(1052) 


000004 


002762 


000004 


000004 


176314 


176126 


176274 


176264 


G 
O2-FEB-78 08:40 PAGE 32 
T3 MAINT - TCSR2 SET, CLEAR, RESET 


+ SHOULD HAVE CLEARED 
IF #MAINT SETIN @TCSR THEN 
BIT #MAINT, ATCSR 
BEQ $17 


; MAINT DID NOT CLEAR INTCSR 
ERRHRD 10.,D!1DNOT 


ENDIF 
ENDSUB 
+ NOW SEE IF RESET CLEARS IT 
BGNSUB 
#645, SLPERR 
LET @TCSR : = @TCSR SET. BY #MAINT 


; ISSUE BUS RESET 
BRESET 


IF #MAINT SETIN @TCSR THEN 


#MAINT, dTCSR 


#MAINT, aTCSR 
$20 


> MAINT DID NOT RESET IN TCSR 
ERRHRD 11..DIDNOT 


ENDIF 


ENDSUB 
ENDTST 


SEQ 0032 





Mi 


MAINDEC-11-DVDVC-B 


CVOVCB 


1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 


.Pii 


003004 
003006 
003014 


003022 
003026 
003032 
003034 


003034 
003034 


063042 
003042 
003050 


003052 
003052 
003054 
003054 
003054 


003054 
003054 
003062 
003062 


003070 
003070 
003076 


003100 
003100 
003102 
003102 
003102 


003102 
003102 


003110 
003110 


003116 
003116 
003124 


003126 
003126 


O02-FEB-78 


000004 
012767 
012767 


012746 
012746 
000002 
012767 


032777 
001401 


104012 


012767 
052777 


032777 
001001 


104013 


012767 


042777 


032777 
001401 


104014 


MACY 11 alti. 


08: 39 


000010 
000004 


000340 
003034 


003042 


000100 


003062 
000100 


000100 


003110 


000100 


000100 


176046 


176214 


176026 
176174 


176166 


176000 


176146 


176140 


H 3 
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3 MAINT - TCSR2 SET, 


CLEAR, RESET 


SEQ 0033 


re 2 2 2 oS 3 2 2 oo 9 2 22% 9 22 2 9 25 8 0 22d 0 0 2 2d 8 0 0 2 Fd 0 2 2d 8 0 22 3 0 0228 0 0220 002 8: 
Pe £229 % 222 oo 9 92% 0 0 02D 0 Fd 9 0 22 0 0 00.99 8 0 029 9 0209 3222 0 0028 0 0 F 2 o 0 08 8 8 8 | 
XMITIE - TCSR6 SET. CLEAR, RESET 

PRLS 2229 322% do 22 0 > 0 9 2 8% 0D 9 0 8 0 0 0 8 0 0 9 8 0 0 0D 0 0 00 8 0 0 0 2 2 0 0 02 0 0 0 0 0 9 0 8 0 | 


/XTEST 4 
TST4: 


64S: 
MoV 
BIT 
BEQ 
ERROR 


$21: 


MOV 
BIS 


BIT 
BNE 
ERROR 


$22: 


MOV 
BIC 
BiT 
BEQ 


ERROR 


#10, STIMES 
#4, $TESTN 


#PR7, - (SP) 
#645, - (SP) 


> SEE 
#655, SLPERR 


aXMITIE, dTCSR 
$21 


12 


> TRY 
#64S, SLPERR 
#XMITIE,dTCSR 


#XMITIE,dTCSR 
$22 


13 


: TRY 
#64S, SLPERR 


#XMITIE, dTCSR 


#XMITIE, dTCSR 
$23 


14 


*>;D0 10 ITERATIONS 
>+SET TEST NUMBER IN APT MAIL BOX 
+ USE PRIORITY OF 7 
>;PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
;;POP NEW PC AND PS 


IF IT 1S CLEAR 
BGNSUB 
IF aXMITIE SETIN @TCSR THEN 
> XMITIE DIO NOT RESET IN TCSR 
ERRHRD 12.,D10NOT 
ENDIF 
ENOSUB 
TO SET XMITIE BIT 
BGNSUB 
LET @TCSR := @TCSR SET. BY #XMITIE 
+ STUCK TO 0 
IF #XMITIE NOTSETIN @TCSR THEN 
; XMIT DIO NOT RESET IN TCSR 
ERRHRD 13.-D1DNOT 
ENDIF 
ENOSUB 
TO CLEAR A SET BIT 
BGNSUB 


LET O@TCSR : = @TCSR CLR. BY #XMITIE 
+ SHOULD HAVE CLEARED 
IF #XMITIE SETIN @TCSR THEN 


; _XMIT DID NOT CLEAR iN TCSR 
ERRHRD 14..D1DNOT 


| 3s 
MAINDEC-11-OVDUC-B MACY11 30A(1052) O2-FEB-78 08:40 PAGE 34 
CVDUCB. P11 O2-FEB-78 08: 39 T4 XMITIE - TCSR6 SET. CLEAR, RESET SEQ 0034 


003130 ENDIF 
003130 $23: 
0031230 ENDSUB 


+ NOW SEE IF RESET CLEARS IT 
003130 BGNSUB 
003130 012767 003136 175752 #64, SLPERR 


003136 LET @TCSR := @TCSR SET. BY #XMITIE 
003136 052777 000100 176120 aXMITIE, dTCSR 
oo BUS RESET 


003144 BRESE 
003144 000005 
003146 IF aXMITIE SETIN OTCSR THEN 
003146 032777 000100 176110 #XMITIE, dTCSR 
003154 001401 $24 

+ XMIT DID NOT RESET IN TCSR 


003156 ERRHRD 15,,D1D0NOT 
003156 104015 15 

003160 ENDIF 

003160 

003160 ENOSUB 

003160 ENDTST 





MAINDEC-11-OVDVC-B 
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003160 
003162 
003170 


003176 
003176 


003204 
003204 
003212 


003214 
003214 
003216 
003216 
003216 


003216 
003216 
003224 
003224 


003232 
003232 
003240 


003242 
003242 
003244 
003244 
003244 


003244 
003244 


003252 
003252 


003260 
003260 
003266 


003270 
003270 
003272 
003272 
003272 


003272 


O2-FEB-78 


000004 
012767 
012767 


012767 


032777 
001401 


104035 


012767 
052777 


032777 
001001 


104036 


012767 


042777 


032777 
001401 


104037 


MACY11 30A(1052) 


08: 39 


000010 
000005 


003204 


000100 


003224 
000100 


000100 


003252 


000100 


000100 


175770 
176002 


175704 


176046 


175664 
176026 


176020 


175636 


176000 


175772 


O2-FEB-78 O 
T4 XMITI 


J 
8:40 PAGE 35 
E - TCSR6 SET. 


CLEAR, RESET 


rie & 2 2% & 0 2 2d > 3 2 2 do 0 2 2d 0 0? 0 0 2 Fd 0 2 23 8 0 02 8 0 0 2 2d 0 0 23 8 0 022 2 8 0 03 0 8 008 8: 
os MAXXKAAKAAAAAAAA AAA AAA AA AAA AAA AAA AA AAA AAA AAA AAA KK 


*KTEST 5 


R6 SET. CLEAR, RESET 


PE S22 2% 9 2 2 ooo 0229 0 0 02 Dd 0 3 0 80 8 0D 0 8 0 08 8 0 0 0d 0 0 0 0 3 0 0 0 8 0 0 0 2 0 00 8 02 8 8 8 8 0 | 
TSTS: SCOPE 


$25: 


$26: 


$27: 


RCVRIE - RCS 

MOV #10, STIMES 
MOV #5, $TESTN 

: ae 
MOV #645, SLPERR 
BIT #RCURIE, ARCSR 
BEQ $25 
ERROR 35 

; TRY 
MOV #645, SLPERR 
BIS #RCVURIE, ARCSR 
BIT #RCVURIE, @ARCSR 
BNE $26 
ERROR 36 

a TRY 
MOV #64, SLPERR 
BIC #RCURIE, @ARCSR 
BIT #RCURIE,. @ARCSR 
BEQ $27 
ERROR 33 


> NOW 


+;D0 10 ITERATIONS 
+;SET TEST NUMBER IN APT MAIL BOX 
IF IT 1S CLEAR 
BGNSUB 


IF ARCURIE SETIN @RCSR THEN 
+ RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35..DIDNOT 

ENDIF 


ENOSUB 
TO SET RCVRIE BIT 
BGNSUB 


LET ORCSR : = ARCSR SET. BY #RCURIE 
+ STUCK TO O 
IF #RCVRIE NOTSETIN ORCSR THEN 
+ RCVRIE DID NOT SET IN RCSR 
ERRHRD 36..DiONOT 
ENDIF 
ENOSUB 
TO CLEAR A SET BIT 
BGNSUB 


LET ORCSR : = ARCSR CLR. BY #RCURIE 
+ SHOULD HAVE CLEARED 
IF @RCVRIE SETIN ORCSR THEN 
+ RCVRIE DID NOT CLEAR IN RCSR 
ERRHRD 37.,D!10NOT 
ENDIF 
ENOSUB 
SEE IF RESET CLEARS IT 
BGNSUB 


SEQ 0035 


MR 
CV 


MAINDEC-11-OVDVC-B 
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003272 


003300 
003300 


003306 
003306 
003310 
003310 
003316 


003320 
003320 
003322 
003322 
003322 
003322 
063322 


012767 003300 
052777 000100 
000005 
032777 000100 
001401 


104040 


MACY11 30A(1052) 


175610 


175752 


175742 


O2-FEB-78 O 
TS RCUR 
MOV 
BIS 
RESET 
BIT 


BEQ 


ERROR 


K 3 
8:40 PAGE 36 


1E - RCSR6 SET. 


#64S, SLPERR 


ARCURIE, ARCSR 


ARCVURIE, ARCSR 
$30 


CLEAR. 


RESET 


ENDTST 


LET 


BRESE 


IF 


ORCSR : = ARCSR SET. BY #RCVURIE 
i BUS RESET 


@RCVRIE SETIN ORCSR THEN 


, RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40. ,DI1DNOT 


SEG 0036 





MF 
Cu 


MAINDEC-11-0VD 
CVOVCB. P11 


003322 
003324 
003332 


003340 
003340 
003346 
003346 
003354 


003356 
003356 


003360 
003360 
003362 
003362 


003362 
003262 
003362 


vC-B 


MACY 11 eighteens 


O2-FEB-78 O08: 39 


000004 
012767 
012767 


012767 


032777 
001402 


104041 


000005 


000010 
000006 


003346 
000200 


175626 
175640 


175542 
175704 


O2-FEB-78 08:40 PAGE 37 
5 RCVRIE - RCSR6 SET. CLEAR, RESET SEQ 0037 


+s MAXXEXAAAAAA AAAS AAA AA AAA A AAA AAA AAA AAA EE 
+& THE FOLLOWING 4 TESTS VERIFY 
+%& THAT RESET CINIT) INITIAL IES READ ONLY BITS. 
Pe & & 2 2 ddd 2 2d > > 2 2 o> 9 2 2 2 oo 2 do 0 0 2 od 0 02d 0 0d 9 0 0 2 2 2 0 0 2 2 dd 0 2 0 8 8 0 2 28 0 0 0 | 
2 ¢ MEXEKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KY 
-KTEST 6 TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 
mana 2° > inane taut cic tt etn et at etic) sie 
MOV #10, STIMES +700 10 ITERATIONS 
#6, STESTN +;SET TEST NUMBER IN APT MAIL BOX 


BGNSUB 
IF @RCVRDONE SETIN ORCSR THEN 


#64S, SLPERR 
#RCURDONE, ARCSR 
$31 
+RCVRDONE SHOULD HAVE CLEARED BY INIT 


+ RCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 41.HRESET. DIDNOT 


REISSUE RESET 
BRESET 


ENDIF 
_—— LOOPING AFTER ERROR 
L 


ENDSUB 
ENDTST 





MF 


MAINDEC-11-DVD 
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003362 
003364 
003372 


003400 
003400 
003406 


003410 


00342 


003422 
003422 
003424 
003424 
003424 
003432 


003434 


003446 


- 003446 
003446 


003454 
003454 
003462 


003464 
003464 
003472 


003472 


vC-B 
O02-FEB-78 


000004 
012767 
012767 


126727 
001001 


000416 


032767 
001401 


000411 


032767 
001401 


000404 


012767 
000414 


012767 


032777 
001405 


042777 
104044 


MACY 11 ecapiencea 


08: 39 


000010 


000007 


005515 


020000 


000004 


000001 


003454 


004000 


000004 


175566 


175600 


000001 


175600 


175566 


175514 


175434 


175576 


175572 


~ 08: 40 


PAGE 38 
TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


SEQ 0038 


ie & % 2 2d do 2 od 9 0 2 2 od 0 2 2 od 20 0 22 oo 2 0 28d 0 2 2d 0 0 2 2 FO 0 2 2 8 0 2 2 2 0 0 0 2 2 9 9 0 2 2 | 
+s MEXEXAAAAAA AAA AAA AAA AAA AAA AAAS AAA AAAAAAAAAAAAAAAAAAKK 


+*TEST 7 TEST THAT RCVRACT - RCSR 


11 - IS CLEARED BY INIT 


ee ae 


TST?: 
MoV #10, STIMES 
MOV #7, STESTN 


CONSOLE, #TRUE 
$32 


$33 


#WRAP,. SUSHR 
$34 


$35 


#MAINT, SUSWR 
$36 


$37 


#1, STIMES 
TST10 


#64$, SLPERR 


RRCVRACT, ARCSR 
$40 


#MAINT, aTCSR 
4y 


+-D0 10 ITERATIONS 
+;SET TEST NUMBER IN APT MAIL BOX 
1FB CONSOLE EQ #TRUE THEN 


++ EXECUTE TEST 
SE 


IF @WRAP SETIN SUSWR THEN 


+; EXECUTE TEST 
SE 


IF #MAINT SETIN SUSWR THEN 
+; EXECUTE TEST 
SE 


EXIT TEST + LINE MUST BE TERMINATED 


77;EXIT THIS TEST 
ENDIF 


ENDIF 
ENDIF 


BGNSUB 


IF @RCVRACT SETIN ARCSR THEN 


RESET SHOULD HAVE CLEARED RCVRACT 
LET @TCSR : = @TCSR CLR. BY #MAINT 


ERRHRD 44. HRESET. DIDNOT 


+ TESTING EFFECT OF RESET ON BIT 





MA 
CV 


3 
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a 


+RCVRACT DID NOT CLEAR IN RCSR 
ALLOW ANOTHER TRY 
BRESET 


003474 
003474 g0co0s 
003476 ENDIF 


003476 
>ALLOW LOOPING ON ERROR 
003476 oP 
003476 
003476 





ork P -11-OV0VC-B MACY11 30A(1052) O2-FEB-78 08:40 PAGE 40 
CVDVCB. P11 02-FEB-78 O08: 39 1? TEST THAT RCVRACT - RCSR 11 - IS CLEARED BY INIT 


js MAEXAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA 
+s RXXEXAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KE 
+TEST 10 TEST THAT XMITRDY - TCSR 7 - IS SET BY INIT 
is RXXAEAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KAS 
003476 000004 TST10: SCOPE 
012767 000010 175452 MOV #10, STIMES *>-D0 10 ITERATIONS 
012767 000010 175464 MOV #10, STESTN ++SET TEST NUMBER IN APT MAIL BOX 


003514 BGNSUB 
003514 012767 003522 175366 #64, SLPERR 


003522 IF #XMITRDY NOTSETIN @TCSR THEN 
003522 032777 000200 175534 #XMITROY. aTCSR 
003530 001002 N $41 


RESET SHOULD HAVE SET BIT 

;XMITRDY DID NOT SET IN TCSR (AFTER RESE 
003532 ERRHRD 42. HRESET. DIDNOT 
003532 104042 


003534 
00G005 


003536 
003536 


00353¢€ 
003536 


+ ISSUE ANOTHER RESET 
BRESET 


ENDIF 
7ALLOW LOOPING ON ERROR 
LOOP 





MAINDEC-11-OVDVC-B 
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003536 
0023540 
003546 


003554 


003604 


003604 
003604 
003612 
003612 


003612 
003612 


003620 
003620 


003626 
003626 


003632 


003660 


003662 
003662 


003664 


02-FEB-78 


000004 
012767 
012767 


126727 
001404 
032767 
001404 


012767 
000513 


012767 


012767 
012767 


105077 


010546 
012745 
016745 
012745 
012745 
004767 
012605 


103001 


MACY 11 — a 


08: 39 


000001 
000011 


005341 


000001 


000001 


000001 


000000 
000000 


175436 


177777 
175420 
000200 
000500 
0044 34 


175412 
175424 


000001 
175422 


175356 


000212 


000206 
000202 


be 
O2-FEB-78 08:40 PAGE 4 
0 TEST THAT XH TROY. - TCSR 7 - IS SET BY — SEQ 0041 


METTTTTTTTttittitiitiititetitiititttititttttttttt ttt tte ttt tT 

oo MEXERAAAAAAAA AAA AAA AAA AAA AAAS AAA AAA AAA AAA AAA AAA EES 
TEST THAT XMIT RDY - TCSR 7 - CLEARS 

WHEN TBUF IS LOADED WITH A CHARACTER 

AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 

j_AAAEESEDOAAAEESEESSAANESESSRAEESSSESEMAEEES ES SUAREEEEESOAAEEEE 


sKTEST 11 
re 
;x 


$42: 


MOV 
S44: 


MOV 
MOV 


CLRB 


#1, STIMES 
#11, STESTN 


CONSOLE. # TRUE 
$42 
RAP TENV, SENV 
$43 


#1,STIMES 
TST12 
#1,PASS 


#CLR, ERRORFLAG 
#CLR-EXITFLAG 


+00 1_ITERA 


TION 


+;SET TEST NUMBER IN APT MAIL BOX 


1FB 


CONSOLE EQ #TRUE OR #APTENV SETIN SENV THEN 


EXIT TEST 


++-EXIT THIS TEST 
ENDIF 


LET 
LOOP 


L 


PASS := #1 ; INIT COUNT OF TIMES THRU 
+ START OF LOOP 


> MAX OF 2 TIMES THRU 
ET ERRORFLAG : = &#CLR 


LET EXITFLAG : = @CLR 


+ LOAD TBUF WITH ONE CHARACTER 
+ WAIT FOR READY TO SET 

+ (SHOULD BE VERY SHORT WAIT 

+ SINCE UART DOUBLE BUFFERS ITS INPUT) 


dTBUF 


RS, -(SP) 

#SET, -(RS) 
TCSR, -(R5) 
#XMITRDY, - (RS) 
#500, -(RS) 

PC, TIMER 
(SP)+,R5 


$46 


SEND A CHARACTER 
LET O@TBUF : B= #0 


+WAIT A MAXIMUM 
OF 500 MSEC FOR 
*>XMIT ROY TO SET IN TCSR 
CALL TIMER IN <#500. #XMI TROY. TCSR. #SET> 


+ TIMER RETURNS AN ERROR IF BIT DID 
+NOT MEET CONDITION WITHIN TIME LIMIT 
IF. ERROR THEN 


;XMIT ROY DID NOT SET IN TCSR 
ERRHRD 66. ,D1DNOT 


Oz 
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1738 
1739 
1740 
1741 
1742 
1743 


003664 
003666 
003666 


003666 
003666 
003672 


003674 
003674 
003702 


003704 
003704 


003712 
003712 
003714 


003714 


003744 
003744 


003746 
003746 


003766 


003770 
003770 
003772 
003772 
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104066 


105077 
000240 


032777 
001404 


012767 


000416 


010546 
012745 
016745 
012745 
012745 
004767 
012605 


103001 


104070 


026727 
001011 


026727 
003404 
104067 
012767 


175376 


000200 175362 


177777 000114 


177777 
175336 
000200 
000500 
004 352 


000052 177777 


000040 000001 


177777 000030 


D 
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S46: 


$51: 
$50: 


42 
TEST THAT XMIT RDY - TCSR 7 - CLEARS 
ERROR 


CLRB 
BIT 
BEQ 
MOV 


ERROR 


CMP 
BNE 


CMP 
BLE 
ERROR 
MOV 


66 


SEQ 0042 


ENDIF 


+ LOAD TBUF WITH A SECOND CHARACTER 
+ CHECK IMMEDIATELY THAT XMITRDY IS CLEAR 
+ AND THEN WAIT FOR IT TO SET 


a TBUF 
NOP 


#XMITRDY. aTCSR 
$47 
#SET. ERRORFLAG 


$50 


RS, - (SP) 
#SET, - (RS) 
TCSR, -(R5) 
#XMITRDY, -(R5) 
PC. TIMER 
(SP)+,R5 


$51 


70 


ERRORFLAG, #SET 
$52 


PASS, #1 
$53 


67 
@SET. EXITFLAG 


SEND SECOND CHARACTER 
LET @TBUF : B= #0 


> GIVE IT TIME TO CLEAR 
+ XMITROY SHOULD HAVE CLEARED UPON 


+ RECEIPT OF A CHARACTER 
IF #XMITRDY SETIN O@TCSR THEN 


> XMITRDY DID NOT CLEAR IN TCSR 
LET ERRORFLAG : = #SET 
+ DEFER ERROR TYPEOUT 
ELSE 
>WAIT A MAXIMUM 
OF 500 MSEC FOR 


+XMIT ROY TO SET IN TCSR 
CALL TIMER IN <#500, #XMI TROY. TCSR. #SET> 


IF. ERROR THEN 


>XMIT ROY DID NOT SET IN TCSR 
ERRHRD 70.-D!DNOT 


ENDIF 
ENDIF ; OF DEFERED ERROR CALL 
IF ERRORFLAG EQ #SET THEN 


IF PASS GT #1 THEN 
+ CALL ERROR IF 2ND TRY 


ERRHRD 67.-DIDONOT 
LET EXITFLAG : = #SET 


Oz 
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004032 
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000403 


012767 


026727 
001401 


000674 


000403 
000000 
000000 
000000 


4 
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177777 000020 


000014 177777 
BR 
S45: 
BR 
PASS: 
ERRORF LAG: 
EXITFLAG: 


0 
0 


43 
TEST THAT XMIT RDY - TCSR 7 - CLEARS SEQ 0043 


ENDIF 


ELSE , NO ERROR 
$54 


LET EXITFLAG : = #SET 
ENDIF 
EXIF EXITFLAG EQ #SET 


RSET, EXITFLAG 


EXITFLAG. #SET 
$45 


ENDLOOP 
44 


EXIT ; SKIP AROUND FLAG WORDS 
TST12 ;7;+EXIT THIS TEST 


ENOTST 
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1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
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004032 
004034 
004042 


004050 
004050 
004056 
004060 
004066 
004070 
004070 
004070 
004076 
004100 
004100 


004100 
004100 


004106 
004106 


004114 
004114 


004120 
004120 
004122 
004126 
004132 
004136 
004142 
004146 


004150 
004150 


004152 
004152 
004160 
004160 
004162 
004162 


000004 
012767 
012767 


032767 
001404 
126727 
001004 


012767 
000442 


052777 


012767 


105077 


010546 
012745 
016745 
012745 
012745 
004767 
012605 


103004 


042777 
104071 
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000001 
000012 


040000 


005035 


000001 


000004 


004114 


175150 


177777 
175126 
000200 
000500 
004146 


000004 
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000001 


175062 


175156 


174774 


175104 


TEST THAT XMIT RDY - TCSR 7 - CLEARS SEQ 0044 


Poe 2 222 oo 2 2 oo 2 22d 0 2 22 do 0 2 0 0 2 2 0 0 2 2d 0 0 0 03 000 2 0 0 0 2 2 9 0 0 28d 0 8 2 8 0 8 0 2 2 8 | 

+s MEXKREKAAAAA AAA AAA AAA A AAA AAA AAA AAA AAA AA AAA AAA AAA AEE 

/KTEST 12 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 

eS RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 
eS AND THAT RESET CLEARS THE BIT. 

ee 


#1,STIMES +700 1_ ITERATION 
#12, STESTN +;SET TEST NUMBER IN APT MAIL BOX 


IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EQ #TRU 
ee 


CONSOLE. #TRUE 
$56 


EXIT TEST 
#1, $TIMES 


Tsris +;+EXIT THIS TEST 
ENDIF 


+ SET THE MAINTENANCE BIT 
LET @TCSR : = @TCSR SET. BY #MAINT 
#MAINT, ATCSR 


BGNSUB 
#64S, SLPERR 
» SEND A CHARACTER AND LET IT WRAP AROUND 


LET @TBUF : B= #0 
@dTBUF 


; WAIT A MAXIMUM OF SO MSEC 
; i DONE TO SET IN 
CALL TIMER IN <#500, #RCVRDONE. RCSR, #SET> 
RS, -(SP) 
RSET, - (RS) 
RCSR, -(R5) 
#RCVRDONE, -(R5) 
PC, TIMER 
(SP)+,R5 


>DION'T SET IN TIME 
IF. ERROR THEN 


+ RCVRDONE DID NOT SET IN RCSR 
+ CAN NOT LEAVE WITH MAINT SET 

LET @TCSR : = @TCSR CLR. BY #MAINT 
ERRHRD 71,.D1DNOT 


ENDIF 


$57 


#MAINT, dTCSR 
71 
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1871 
1872 
1873 
1874 
1875 


004162 


004162 
004162 


004170 
004170 


004172 
004172 
004200 


004202 
004202 
004 204 
004 204 
004204 
004 204 


012767 


000005 


032777 
001401 


104072 
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004170 


000200 


174720 


175060 
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2 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) SEQ 0045 
ENDSUB 


BGNSUB 
#645, SLPERR 


> NOW THAT IT IS SET SEE IF IT CAN BE RESET 
+ THIS ALSO WILL CLEAR ‘ear BIT 


IF #RCVRDONE SETIN @RCSR THEN 
ne 
+ RCVRDONE DID NOT RESET IN RCSR 
ERRHRD 72.,DI1DNOT 


ENDIF 


ENOSUB 
ENDTST 


v2 
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004 204 
004206 
004214 


004222 
004222 
004230 
004232 
004240 
004242 
004242 
004242 
004250 
004252 
004252 


004252 
004252 
004260 
004260 


004 266 
004266 


004272 
004272 
004274 
004300 
004 304 
004310 
004314 
004320 
004322 
004322 


004330 
004330 


004332 
004 332 
004334 
004334 
004 334 
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000004 
012767 
012767 


032767 
001404 
126727 
001004 


012767 
000440 


052777 
012767 


105077 


010546 
012745 
016745 
012745 
012745 
004767 
012605 


042777 


103001 


104073 
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000010 
000013 


040000 


004663 


000001 


000004 
004 266 


174776 


177777 
174754 
000200 
000500 
003774 


000004 


174744 
174756 


174770 
000001 


174710 


175004 
174622 


174734 
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12 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) SEQ 0046 


ie £2 2 2% do 2 2 dd 0 2 2 2d 02 2? 0 029 2 0 2d 0 0 2 2d 0 0 2d 0 2 22 0 0 0 22 8 02 28 0 0 02 2 0 0 028) 
2s MEXKKEREAAA AAA AAA AKA AA AAA AAA AAA AAA AAA AAA KK 
-KTEST 13 TEST THAT RCVRDONE |S CLEARED BY READING RBUF 

re eee ee 


TST13: 
#10, $TIMES ;;00 10 ITERATIONS 
#13, STESTN ;,SET TEST NUMBER IN APT MAIL BOX 


IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EQ #TRU 


7 ations 


61 
CONSOLE, #TRUE 
$62 


EXIT TEST 
#1,$TIMES 


TST14 ;;;EXIT THIS TEST 
ENDIF 


+ SET MAINT. BIT 
LET @TCSR : = @TCSR SET. BY #MAINT 
#MAINT, ATCSR 


BGNS'JB 
#64S, SLPERR 
+ OUTPUT A CHARACTER WITH MAINTENANCE 
+ SET. AND WAIT FOR XMITRDY TO SET. 


+ OUTPUT A CHARACTER 
LET @TBUF : B= #0 


> WAIT MAXIMUM OF 500 MSEC 
; —* TO SET IN 
CALL TIMER IN <#500. #RCVURDONE, RCSR, #SET> 


a TBUF 


RS, -(SP) 

#SET,- (RS) 
RCSR, -(R5) 
#RCYURDONE, -(R5) 
#500, -(R5) 

PC. TIMER 
(SP)+,R5 


#MAINT, dTCSR 


LET @TCSR := @TCSR CLR. BY #MAINT 


+ DID IT BECAME READY? 
IF. ERROR THEN 


+RCVRDONE DID NOT SET IN RCSR 
ERRHRD 73., OIDNOT 


ENO IF 
ENOSUB 


+ NUW THAT IT IS SET LETS SEE IF READING THE 
> BUFFER CLEARS RCVRDONE. 


$63 


73 
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004334 
004334 


004 340 
004 340 
004 346 


004 350 
004 350 
004 352 
004352 
004 352 
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117700 


032777 
001401 


104074 


174722 


900200 


174712 


4 
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T13 TEST THAT RCVRDONE IS CLEARED BY READING RBUF SEQ 0047 


READ BUFFER 
LET RO : B= @RBUF 
ORBUF. RO 


IF @RCVRDONE SETIN @RCSR THEN 


#RCVRDONE. dRCSR 
$64 


;RCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 74.,DI1DNOT 


ENDIF 
ENDTST 
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004 352 
004 354 
004 362 
004370 
004370 
004376 
004406 
004406 
004410 
004410 
004410 
004416 
004420 
004420 
004420 
004420 
004426 
0044 30 
0044 30 
0044 36 
004440 
004440 


004440 
004440 
004446 
004446 
004452 
004452 


004454 
004454 
004460 
004460 
004460 
004460 
004466 
004470 
004470 
004474 
004474 
004476 
004476 
004476 
004500 
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000004 
012767 
012767 


126727 


001004 


012767 
000526 


032767 
001404 


012767 
000516 


052777 
012700 
005001 


105077 


032777 
001403 


012700 
000401 


005201 
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000010 
000014 


004525 


040000 


000001 


000001 


000001 


000004 
000000 


174610 


004000 


177777 
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re £222 oo 2 22 oo 2 2D 2 2 2 2 2 > 0 td 0 0 2? 9 0 2 2d 0 0 0 23 0 0 2 29 0 022 8 0 0299900708002 8) 

+s MEXAKRAKAAAEA AAA A AAA AA AAA AAA AA AAA AAA AAA AAA AAAS 

/*TEST 14 TEST THAT RCVRACT - RCSR 11 - SETS 

;* WHEN A START BIT IS RECEIVED — 

re CLEARS WHEN RCVRDONE - RCSR 7 - SETS 

ss ANASAASENSEAESA ESTE ERAT EA EATS EDAD DT DATEL 
174576 #10, STIMES +700 10 ITERATIONS 
174610 #14, STESTN +;SET TEST NUMBER IN APT MAIL BOX 

1FB CONSOLE EQ #TRUE OR #MAINTJUMP NOTSETIN SUSW 

000001 — 


174612 #MAINT JUMP, SUSWR 
$66 


EXIT TEST 


174542 #1,$TIMES 
TST15 ++,EXIT THIS TEST 
ENDIF 


IF #APTENVY SETIN SENV THEN 
174566 a 


EXIT TEST 


174522 #1, STIMES 
TST15 ;;;EXIT THIS TEST 
ENDIF 


LET @TCSR : = @TCSR SET. BY #MAINT 
LET RO: = @#CLR 
LET R1 := #0 


*LORAD A CHARACTER INTO TBUF 
*WAIT FOR RCVRACT TO SET 


174616 #MAINT,. ATCSR 
#CLR,RO 
R1 


SEND A CHARACTER 
LET @TBUF : B= #0 


REPEAT 
IF #RCVRACT SETIN @RCSR THEN 


oTBUF 


174572 #RCURACT, ORCSR 
BEQ $71 


LET RO: = #SET 
ELSE 


#SET.RO 
$72 
LET R1 : 
ENDIF 


R1 





MA 
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004500 $72: 


020027 177777 RO, #SET 
001403 $73 
020167 000160 R1, MAX 
10176z $70 


UNTIL RO EQ #SET OR R1 HI MAX 


1F R1 HI MAX THEN 
020167 000152 R1, MAX 
004520 101410 $74 
+ 1T NEVER SET 
+RCVRACT DID NOT SET IN RCSR 
+ CAN NOT LEAVE WITH MAINT SET 
004522 @TCSR : = @TCSR CLR. BY #MAINT 
042777 OO00004 174534 #MAINT, aTCSR 
ERRHRD 75.. DIDNOT 


104075 75 
EXIT TEST 


012767 000001 174420 #1,STIMES 
000455 TST15 +7-EXIT THIS TEST 
ENDIF 
004542 


>CHECK FOR TIMING OF RCVRACT. CLEARING 
i VS RCVRDONE SETTING 


ah WHILE #RCVRACT SETIN @RCSR DO 
004542 032777 OO4000 174510 #RCVRACT. ARCSR 
004550 001421 BEQ $76 


004552 IF #RCVRDONE SETIN @RCSR THEN 
004552 032777 000200 174500 #RCURDONE. ARCSR 

004560 001414 BEQ $77 

004562 IF #RCVRACT SETIN ORCSR THEN 
004562 032777 OO4000 174470 #RCVRACT. ARCSR 

004570 001410 BEQ $100 


;RCVRDONE AND RCVRACT 
BOTH SET 


; CAN NOT LEAVE WITH MAINT SET 
004572 @TCSR : = @TCSR CLR. BY #MAINT 


042777 OO00004 174464 #MAINT, ATCSR 
004600 104076 76 


004602 

004602 012767 000001 174350 #1,STIMES 
004610 000431 TST15 *+-EXIT THIS TEST 
004612 ENDIF 
004612 : 1 ‘ 

004612 ENDIF 
004612 

004612 ENDDO 
004612 000753 


ERRHRD 76. DONEACT 
+NO USE CONTINUING 
EXIT TST 
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2073 004614 $76: 


2075 -RCVRACT = O NOW. 

2076 004614 IF #RCVRDONE NOTSETIN ORCSR THEN 
2077 004614 032777 000200 174436 B | #RCURDONE, ARCSR 

2078 004622 001010 8 $101 

2079 >RCVRDONE DID NOT SET IN RCSR 
2080 + CAN NOT LEAVE WITH MHINI Stl 
2081 004624 LET @TCSR : = @TCSR CLR. BY #MAINT 
2082 004624 042777 OO00004 174432 BIC #MAINT, ATCSR 

2083 004632 ERRHRD 77.,DIDNOT 

2084 004632 104077 ERROR 77 

2085 004634 EXIT TEST 

2086 004634 012767 O00001 174316 MOV #1,$TIMES 

2087 O04642 000414 BR TST15 277 EXIT aaa f+ | 


2089 004644 $101: 
2090 TEST THAT READING THE RECEIVER 
2091 +BUFFER CLEARS RCVRDONE 


2094 READ CHAR. 
2095 004644 LET RO : = @RBUF 
2096 004644 017700 174412 MOV ORBUF. RO 


2098 004650 IF #RCVRDONE SETIN @RCSR THEN 

2099 004650 032777 000200 174402 BIT #RCURDONE. ARCSR 

2100 004656 001404 BEQ $102 

2101 +RCVRDONE D!D NOT CLEAR IN RCSR 
2102 + CAN NOT LEAVE WITH MAINT SET 
2103 004660 LET @TCSR : = @TCSR CLR. BY #MAINT 
2104 004660 042777 OO00004 174376 BIC #MAINT, ATCSR 

2105 004666 ERRHRD 100.,.D10NOT 

2106 004666 104100 ERROR 100 

2107 004670 ENDIF 

2108 004670 $102: 


2110 004670 EXIT 
2111 004670 000401 BR TST15 77-EXIT THIS TEST 
2112 004672 070000 MAX: 70000 


2114 004674 ENDTST 
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+s MXXEXAAKAAAAAA AAA AAA TAKA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KEY 

+s MAXXEKKAAAAAAAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 

*KTEST 15 TEST THE OVERRUN BIT - RBUF 14 

PR L222 2392929 0 22 D9 0 2 2 dD 09 0 0 8 0 8 9 0 2 9 8 0 0 0 8} 0 0 0 2 8 0 0 2 8 8 0 0 2 8 8 0 0 0 2 8 8 0 0 8 | 
004674 OO0CO04 TST15: SCOPE 


012767 000010 174254 0 #10, STIMES +;D0 10 ITERATIONS 
012767 000015 174266 #15, STESTN +;SET TEST NUMBER IN APT MAIL BOX 


IF SERRBITS NOTSETIN SUSWR ORB CONSOLE EQ #TRUE 
032767 100000 174300 RERRBITS, SUSHR 
001404 $103 
126727 004173 000001 CONSOLE, #TRUE 
001004 $104 


EXIT TEST 
012767 000001 174220 #1,STIMES 
000547 TST16 +7cEXIT —a 
NDI 


IF #MAINTJUMP NOTSETIN SUSWR THEN 
032767 O40000 174250 #MAINTJUMP, SUSWR 
001004 $105 


EXIT TEST 
012767 000001 174200 #1,STIMES 
000537 TST16 277 EXIT wl cs 
NDI 


004762 


004762 LET @TCSR : = @TCSR SET. BY #MAINT 
004762 052777 O00004 #MAINT, ATCSR 


004770 BGNSUB 

004770 012767 004776 174112 #64, SLPERR 
+QOUTPUT 2 CHARACTERS WITH 
AMPLE DELAYS BETWEEN FOR RECEPTION 
THIS SHOULD AN CAUSE OVERRUN ERROR. 


; OUTPUT 1 ss 
004776 LET aTBUF : B= 
004776 105077 174266 aTBUF 

>GO AWAY FOR 200 M SEC 


005002 WAITMS 200. 
005002 010546 RS, - (SP) 

005004 012745 000310 #200. .-(R5) 

005010 004767 003556 PC, WAIT 

005014 012605 (SP)+,R5 


OUTPUT 2ND CHARACTER 
005016 LET @TBUF : B= #0 
005016 105077 174246 @TBUF 

+LET OVERRUN HAPPEN 


005022 WAITMS 200. 
005022 010546 RS, -(SP) 
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005024 012745 000310 #200. .-(R5) 
005030 004767 003536 PC, WAIT 
005034 012605 (SP)+,R5 


; READ BUFFER AND ERROR BITS 
005036 LET RY : = @RBUF 
005036 017704 174220 ORSUF, RY 


+1T DION'T SET 
005042 IF #ORERR NOTSETIN RY THEN 
005042 032704 040000 RORERR, RY 
005046 001010 BNE $106 
/ORERR DID NOT SET IN RBUF 
+ CAN NOT LEAVE WITH MAINT SET 
005050 LET @TCSR : = @TCSR CLR. BY #MAINT 
005050 042777 OO00004 174206 #MAINT, dTCSR 
005056 ERRHRD 101.,.D010NOT 
005056 104101 101 


+NO_USE COMPOUNDING ERRORS 
005060 EXIT TST 


012767 000001 174072 #1,STIMES 
000474 TST16 277 EXIT are 5 
NDI 


005070 ENDSUB 


*NOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 
005070 BGNSUB 


005070 012767 005076 174012 #645, SLPERR 

005076 IF #ERROR NOTSETIN RY THEN 
005076 032704 100000 #ERROR, RY 

005102 001010 N $107 


ERROR DID NOT SET IN RBUF 

+ CAN NOT LEAVE WITH MAINT SET 
005104 LET @TCSR : = OTCSR CLR. BY SMAINT 
005104 042777 OO0004 174152 #MAINT, ATCSR 
005112 ERRHRD 102..010NOT 
005112 104102 102 


+~WHEN ORERR SET. 
GET OUT NOW. 
005114 EXIT TST 
005114 012767 000001 174036 #1,STIMES 
005122 000456 TST16 +7-EXIT THIS TEST 
005124 ENDIF 
005124 


005124 ; ENDSUB 


005124 BGNSUB 
005124 012767 005132 173756 #64S, SLPERR 


*CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 


005132 IF #ORERR NOTSETIN ORBUF THEN 
005132 032777 O40000 174122 #ORERR, ORBUF 


BARS AA SA DIAIASAS AS RABI RA Rr ee en MIB ee ROBB er we Bier er ee meee Mt areca meee Meare necenae 
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005250 
005250 
005256 


02-FEB-78 
001010 


042777 
104103 


012767 
0004 37 


012767 


105077 


010546 


012605 


032777 
001410 


042777 
104104 


012767 
000410 


032777 
001404 


042777 
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000004 


000001 


005170 


174074 


000310 


003364 


040000 


000004 


000001 


100000 


000004 


174114 


174000 


173720 


174044 


174036 


173722 


174014 


174006 


$110: 


$111: 


02-FEB 
15 


-78 
TEST 


BNE 
BIC 


ERROR 


MOV 
BR 


MoV 


BIT 
BEQ 


BIC 


"8:40 PAGE 53 M 
.4€ OVERRUN BIT - RBUF 14 SEQ 0053 C 
$110 
;READING RBUF CLEARED ORERR 
; CAN NOT LEAVE WITH MAINT SET 
LET @TCSR := @TCSR CLR. BY #MAINT 
#MAINT, aTCSR 
at ERRHRD 103, ITCLRED 
; SKIP REST OF TEST 
EXIT TEST 
#1, STIMES 
TST16 3;;€XIT THIS TEST 
ENDIF 
ENDSUB 
BGNSUB 
#64S, SLPERR 
;NOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. 1S RECEIVED 
; SEND A CHARACTER AROUND. 
LET aTBUF : B= #0 
aTBUF 
;LET IT CIRCULATE 
WAITMS 200. 
R5,-(SP) 
#200. . - (RS) 
PC, WAIT 
(SP)+,R5 
IF #ORERR SETIN @RBUF THEN 
BORERR. aRBUF 
111 
;ORERR DID NOT CLEAR IN RBUF 
; CAN NOT LEAVE WITH MAINT SET 
LET ATCSR : = ATCSR CLR. BY #MAINT 
#MAINT, aTCSR 
ERRHRD 104,,DIDNOT 
104 
;-AFTER RECEIVING ANOTHER CHAR 
;SKIP AROUND REST 
EXIT TST 
#1, STIMES 
TST16 ;;EXIT THIS TEST 
ENDIF 
IF #ERROR SETIN QRBUF THEN 
#ERROR, ORBUF 
$112 
;ERROR DID NOT CLEAR IN RBUF 
; CAN NOT LEAVE WITH MAINT SET 
LET QTCSR := @TCSR CLR. BY MAINT 
#MAINT, aTCSR 


ERRHRD 105.,DI1DNOT 


MAI NDEC-11-DVDUC-B 
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005256 


005260 
005260 
005260 
005260 


104105 


MACY 11 antiioaed 


C 
O2-FEB-78 08:40 PAGE 54 
T15 TEST THE OVERRUN BIT - RBUF 14 


ERROR 105 
ENDIF 


ENDSUB 
ENDTST 


SEQ 0054 





Oz 


‘ 


0 5 
MAINDEC-11-DVDVC-B MACY11 —_ i. O2-FEB-78 08:40 PAGE 55 
DVCB. P11 O2-FEB-78 08: 39 T15 TEST THE OVERRUN BIT - RBUF 14 SEQ 0055 


2s MEXXKAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AES 
js MAXKAKKAAAA AAA AAA AAA TAKARA AAA AAA AAA AAA AAA AAA AAA AEE 
_ 16 PROGRAMMABLE BAUD RATE TEST 
TEST AT ALL SPEEDS AVAILABLE 
3 A COMPARISON WILL BE MADE TO or 
eS IF NEW TIME 1S LESS THAN PREVIOUS. 
METTLE TTT Ee 
005260 000004 TST16: SCOPE 
005262 012767 000010 173670 MOV #10. $TIMES *+-D0 10 ITERATIONS 
005270 012767 O00016 173702 MOV #16, STESTN +;SET TEST NUMBER IN APT MAIL BOX 


005276 IF #PBR NOTSETIN SUSWR OR #MAINTJUMP NOTSETIN $U 
032767 000200 173714 #PBR, SUSHR 
001404 $113 
032767 O40000 173704 #MAINT JUMP, SUSWR 
001004 $114 


EXIT TEST 
012767 000001 173634 #1, STIMES 


000553 TST17 ++-EXIT THIS TEST 
ENDIF 


005326 

005326 1FB #APTENV SETIN SENV THEN 
132767 000001 173660 #APTENV, SENV 
001404 $115 


EXIT TST 
012767 000001 173614 #1,STIMES 
000543 TST17 ta ha id 


005346 


005346 LET ERRCHK : = #0 + CLEAR ERROR WORD 
005067 002614 ERRCHK 
LET OLD : = 


012767 177777 000270 #-1,0LD 
LET OLD+2 : = #-1 
012767 177777 000264 #-1,0LD+2 
LET @TCSR : = @TCSR SET. BY #MAINT 
005366 052777 000004 173670 #MAINT, aTCSR 
EACH BAUD RATE 
005374 INCR R3 FROM #0 TO #15. BY #1 
005003 R3 
000401 $116 
005203 R3 


020327 000017 ae . R3. 815. 
003062 $120 
LET RO: = aRBUF 


005410 017700 173646 ORBUF, RO 
CHANGE BAUDE RATE 
005414 LET @TCSRHI : B= RATES(R3) 





Oz 


MAINDEC-11-OVDVC-B MACY11 30A(1052) O2-FEB-78 08:40 PAGE 56 
CVOVCB. P11 02-FEB-78 08: 39 T16 PROGRAMMABLE BAUD RATE TEST SEQ 0056 


005414 116377 005624 173644 MOVB RATES(R3), ATCSRHI 
005422 


005422 005002 BIT 
As tall THE CHARACTER 
005424 @TBUF #0 
005424 005077 173640 aTBUF 
“INITIALIZE COUNTER 
:2 f 


0054 30 NEW 
005067 000210 NEW 
NEW+2 : = #0 


005067 000206 NEW+2 
WHILE BIT EQ #0 DO 


005702 BIT 
001014 $122 


032777 000200 173606 #RCVRDONE, ARCSR 
005452 001403 $123 
>DONE - ITS READY 


005454 LET BIT := #1 
005454 012702 000001 , 

005460 ELSE 

005460 000404 


005462 

/ OTHERWISE- INCREMENT TIME 
005462 LET NEW : = NEW + #1 
005462 005267 000156 


IF @RCVRDONE SETIN @RCSR THEN 


005466 LET NEW+2 : = NEW+2 + CARRY 
005466 005567 000154 
005472 ENDIF 


005472 


005472 
005472 000762 
005474 


005474 IF NEW+2 LO OLD+2 THEN 
005474 026767 000146 000150 NEW+2, OLD+2 
005502 103001 $125 _ 


005504 ELSE 
005504 000414 


005506 
+ NEW+2 >= OLD+2 

005506 IF NEW+2 EQ OLD+2 AND NEW LO OLD THEN 
005506 026767 000134 000136 NEW+2, OLD+2 
005514 001005 $127 
005516 026767 000122 000124 NEW, OLD 
005524 103001 $127 ‘ 

+ OK 


005526 ELSE 
005526 000403 $130 
005530 


SIGNALS DONE 
DDO 


*NEW+2 > OLD+2 OR 
+ (NEW#2 = OLD+2 AND 
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2405 005530 
2406 005530 012767 


2410 005536 


2412 005536 
2413 005536 016767 
2414 005544 
2415 005544 016767 


2417 005552 
2418 005552 000712 


2421 005554 116703 
2422 005560 110346 
2423 005562 142716 
2424 005566 142603 


2426 005570 042703 


2427 005574 
2428 005574 116377 


2431 005602 
2432 005602 042777 
2433 005610 
2434 005610 032767 
2435 005616 001401 


2437 005620 
2438 005626 104126 


2442 005622 000414 
2444 005624 


2453 005624 010 


2458 005631 130 
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000004 


000102 
000076 


173441 
000017 


177400 


005624 


000004 
000004 


002430 


000104 
000100 


173464 


173454 
002350 


O2-FEB-78 08:40 PAGE 57 
T16 PROGRAMMABLE BAUD RATE TEST SEQ 0057 


> NEW >= OLD) 
;BAUD RATE DIDN'T CHANGE 
LET ERRCHK := #BIT2 ; SET ERROR INDICATOR 
MOV #B 112, ERRCHK 


ENDIF 
$130: 
ENDIF 
$126: 
— OLD TIME 
LET OLD : = NEW 
MOV NEW, OLD 
LET OLD+2 : = NEW+2 
MOV NEW+2, OLD+2 
ENDINC ;BAUD RATE 
BR $117 
$120: 
LET R3 : B= SUSWR+1 AND #17 » PUT BAUD BACK 
MOVB SUSWR+1,R3 
MOVB R3,-(SP) 
BICB #17, (SP) 
BICB (SP)+,R3 
LET R3:= R3 CLR. BY #177400 
BIC #177400,R3 
LET @TCSRHI : B= RATES(R3) > LIKE HE WANTED IT 
MOVB RATES(R3),. dTCSRHI 
> CAN NOT LEAVE WITH MAINT SET 
LET @TCSR : = @ATCSR CLR. BY #MAINT 
BIC aMAINT. aTCSR 
IF #BIT2 SETIN ERRCHK THEN 
BIT #B1T2, ERRCHK 
BEQ $131 
> REPORT DEFERED ERROR 
ERRHRD 126 
ERROR 126 
ENDIF 
$131: 
EXIT + SKIP TABLE 
BR TST17 Sec EMIT THIS PEST 


RATES: ;A TABLE OF THE ACTUAL BYTES TO MOVE INTO THE 
, UPPER BYTE OF XCSR FOR EACH BAUD RATE 


> NOTE: : THE VALUE INDICATED IN THE COLUMN ‘OFFSET 
Pe & | INTO TABLE' CAN BE PLACED INTO BITS<11: 8 
0k OF LOCATION 'SUSWR' TO CAUSE THE CORROSPONDING 
re S| BAUD TO BE SELECTED IN THE DLV11-F UPON 
Pe S| COMPLETION OF THIS TEST. 
; BAUD OFFSET INTO TABLE 
ROO5SO BYTE 010 ; 50 0 
RO0070 BYTE 030 ; 70 1 
RO110 BYTE 050 ; 110 2 
RO135 BYTE 070 135 3 
RO150 BYTE 110 150 4 
RO300 BYTE 130 300 5 


Mt 
C\ 
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005632 


005643 


005644 
005650 
005654 


vC-B MACY 11 oo ag 


O2-FEB-78 08: 39 


000000 000000 
000000 000000 


NEW: 
OLD: 


G 
O2-FEB-78 08:40 PAGE 58 
16 PROGRAMMABLE BAUD RATE TEST 


.B 

. BYTE 
0,0 
0,0 


ee ee et et et ee ee NY 
NOMmfwhH Oo 


SEQ 0058 





H § 
MAINDEC-11-DVDVC-B MACY 11 ities O2-FEB-78 08:40 PAGE 59 
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2476 Pe & & © & $ © 2 2 2 2 2 2 dod 0 2 8 2 2 2 9 2 0 2 2 2 2D 8 0 0 0 2 2 2 2 0 0 9 0 0 2 222 2 2 8 0 0 0 0 00002 8 8 8 | 
2477 2s MEXAKEEKAAA EAA AA AAA AAA AAA AAA AAA AAA AE 
2478 + TEST 17 TRANSMITTER INTERRUPT LOGIC TEST 
2479 ; LOGICALLLY THIS IS 4% SEPARATE TESTS 
2480 ; A) DOES TRANSMITTER INTERRUPT LOGIC WORK 
2481 ; B) AT PRIORITY OF O 
2482 ; C) AND ONLY ONCE 
2483 D) BUT NOT WITH INTERRUPT ENABLE CLEAR 
2484 WTTTTTTTT TT TTT Th 2S 2 2 2 > 0 0 8 0 020 9 0 0 8 8 8 8 8 9 0 9 0 8 0 0 0 000 00 009920008 0) 
2485 005654 000004 TST17. SCOPE 
2486 005656 012767 000010 173274 MOV #10,S$TIMES »-D0 10 ITERATIONS 
ee 005664 012767 000017 173306 MOV #17, $TESTN *>7SET TEST NUMBER IN APT MAIL BOX 
2489 
2490 
2491 005672 IF #APTENV SETIN SENV THEN 
2492 005672 032767 000001 173314 RAP TENV, SENV 
2493 005700 001404 $132 
2494 005702 EXIT TEST 
005702 012767 000901 173250 #1,STIMES 
005710 000532 TST20 ++-EXIT THIS TEST 
005712 ENDIF 
005712 


>CLEAR ‘INTERRUPT OCCURED’ FLAG 
005712 LET INTFLAG : = #0 
005712 005067 002742 INTFLAG 


GET VECTOR ADDRESS 
005716 LET R3 := DLVEC 
005716 016703 173334 DLVEC,R3 

FOR THE TRANSMITTER 


005722 LET R3:= R3 + #4 


005722 062703 000004 #4,R3 
>SET VECTOR TO POINT TO TRANS. SRV AT PRI 

005726 SETVEC R3. #INTSRV. #PR7 
005726 010146 R1,-(SP) 
005730 010301 R3,R1 
005732 012721 010652 #INTSRY, (RID + 
005736 012711 000340 #PR7, (R1) 
005742 012601 (SP)+,R1 
005744 BGNSUB 
005744 012767 005752 173136 #64S, SLPERR 

+; MAKE SURE THAT TRANSMITTER READY IS SET 


005752 CALL TIMER IN <#500. #XMITRDY. TCSR. #&SET> 
005752 010546 RS, - (SP) 

005754 012745 177777 #SET, -(R5) 

005760 016745 173300 TCSR, -(R5) 

005764 012745 000200 #XMITRDY, -(R5) 

005770 012745 000500 #500, -(R5) 

005774 004767 002314 PC, TIMER 

006000 012605 (SP)+,R5 


*CLEAR INTERRUPT ENABLE 
006002 LET @TCSR : = OTCSR CLR. BY #XMITIE 
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2532 
3 


006002 


006010 


006022 
006022 


006030 
006030 
006032 
006036 
066042 


006044 
006044 
006052 


006054 
006054 
006060 


006062 
006062 
006064 
006064 
006066 


006066 
006066 
006070 
006070 
006070 
006070 
006070 


006070 
006070 


006076 
006076 


006102 
006102 


006110 
006114 
006120 
006122 


02-FEB-78 
042777 
012746 


012746 
00C00z 


052777 


010546 
012745 
004767 
012605 


026727 
001406 


005767 
001002 


104106 
000401 


104107 


012767 


005067 


042777 


012746 
012746 
000002 
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000100 


000000 
006022 


000100 


000310 
002530 


002610 


002600 


006076 


002556 


000100 


000000 
006122 


173254 


173234 


000001 


173012 


1723154 


A -FEB-78 08:40 PAGE 


655: 


$134: 


$135: 
$133: 


655: 


60 
TRANSMITTER INTERRUPT LOGIC TEST 


BIC 


ERROR 


RTI 


aXMITIE. dTCSR 


#PRO. -(SP) 
#65$, - (SP) 


@XMITIE, dTCSR 


RS, -(SP) 
#200. , -(R5) 
PC, WAIT 
(SP)+,R5 


INTFLAG, #1 
$133 


INTFLAG 
$134 


106 
$135 


107 


SEQ 0060 


sSET IT FOG 
;;PUT NEW PS ON STACK 
>;PUT NEW PC ON STACK 
;;POP NEW PC AND PS 


W SET 1. E. 


NOW BIT 
LET aTCSR = @TCSR SET. BY #XMITIE 


>LET INTERRUPT HAVE TIME TO OCCUR 
WAITMS 20C. 


+DID EXACTLY 1 INTERRUPT OCCUR 
IF INTFLAG NE #1 THEN 


>NO - WAS IT O OR MORE THAN ONCE 
IF INTFLAG EQ #0 THEN 


> TRANSMITTER DID NOT INTERRUPT IN TIME 
ERRHRD 106.,.D1DNOT 

ELSE 

> TWICE 

> TRANSMITTER INTERRUPTEQ TWICE 
ERRHRD 107.. TWICE 

ENDIF 

ENDIF 


ENOSUB 
, INTERRUPT WITHOUT INTERRUPT ENABLE SET 
BGNSUB 


#64%, SLPERR 


INTFLAG 


#XMITIE, dTCSR 


#PRO,-(SP) 
#65%, - (SP) 


+ CLEAR ie a OCCURED' FLAG 
LET INTFLAG := #0 


*CLEAR INTERRUPT ENABLE 
LET @TCSR : = OTCSR CLR. BY &XMITIE 


+NO INTERRUPTS SHOULD OCCUR. 
;,PUT NEW PS ON STACK 

;;PUT NEW PC ON’ STACK 

>;POP NEW PC AND PS 
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006142 


006144 
006144 
006146 
006146 
006146 
006146 
006150 


006150 


006174 
006176 
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010546 
012745 000002 
004767 002436 
012605 


005767 002516 
001401 
104110 
000005 


010146 
010246 
012701 000003 
010102 
062702 000002 
010221 
005011 
012602 
012601 


O2-FEB-78 08:40 PAGE 61 
Ti? TRANSMITTER INTERRUPT LOGIC TEST 


;DARE IT TO HAPPEN 
WAITMS 2 
RS, -(SP) 
#2, -(R5) 
PC, WAIT 
(SP)+,R5 


INTFLAG 


~ 


IF INTFLAG NE #0 THEN 
, INTERRUPT OCCURED WITH | E CLEARED 
ERRHRD 110. NOTENAB 
ENDIF 
BRESET 
ENDSUB 
RESTORE VECTOR AREA 
CLRVEC R3 


R1,-(SP) ;;PUSH R1 ON STACK 
>;PUSH R2 ON STACK 


110 


’ ;;POP STACK INTO R2 
(SP)+,R1 +;POP STACK INTO R1 


ENDTST 


SEQ 0061 
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CVDVCB. P11 O02-FEB-78 08: 39 TRANSMITTER INTERRUPT LOGIC TEST SEQ 0062 
2624 2s MAEXEXAAEAAAAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA A AAA AAA EE 
2625 eS 2 222 oo 222d 0 229d 9 9 2 2 2 0 Fd 099399 0000 0 0029 0 022 0 0 208 0 0 2 08 8 0 028 8 0 08 | 
2626 + TEST 20 RECEIVER INTERRUPT LOGIC TEST 
2627 re THIS TEST COVERS ALL OF THE RECEIVER 
2628 ;x SIDE OF THE INTERRUPT LOGIC IN 
2629 +k CHARACTER MODE. 
2630 Etisetisetstititttitttitttttitetttstttstttttsttttsttttttttt tees! 
2631 006176 O00004 TST20: SCOPE 
2632 006200 012767 000010 172752 MOV #10. STIMES +;D0 10 ITERATIONS 
2633 006206 012767 000020 172764 MOV #20. STESTN ++SET TEST NUMBER IN APT MAIL BOX 
2634 006214 IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EQ #TRU 
2635 006214 032767 O40000 172776 BIT #MAINTJUMP, SUSWR 
2636 006222 001404 BEQ $137 
2637 006224 126727 002671 000001 CMPB CONSOLE. # TRUE 
2638 006232 001002 BNE $140 
2639 006234 $137: 
2640 006234 000167 000242 JMP TST21 ; EXIT TEST 
2641 006240 ENDIF 
2642 006240 $140: 
2643 
2644 *CLEAR INTERRUPT OCCURED FLAG 
2645 >SET UP RECEIVER INTER. VECTOR 
2646 006240 SETVEC DLVEC, # INTSRY. #PR? 
2647 006240 010146 MOV Ri,-(SP) 
2648 006242 016701 173010 MOV OLVEC. R1 
2649 006246 012721 010652 MOV #@INTSRY, (R1)+ 
2650 006252 012711 000340 MoV #PR7, (R1) 
2651 006256 012601 MOV (SP)+,R1 
2652 *PRIORITY O AND MULTIPLE INTERRUPT TEST. -RCURIE 
2653 006260 BGNSUB 
2654 006260 012767 006266 172622 MOV #64, SLPERR 
2655 006266 LET INTFLAG := #0 
2656 006266 005067 G02366 CLR ° INTFLAG 
2657 2 SET MAINT. BIT 
2658 006272 LET @TCSR : = @TCSR SET. BY &MAINT 
2659 006272 052777 O00004 172764 BIS #MAINT, dTCSR 
2660 -CLEAR INTERRUPTS 
2661 006300 LET @RCSR : = ORCSR CLR. BY #RCURIE 
2662 006300 042777 000100 172752 BIC RRCVRIE, ORCSR 
2663 + CHANGE PRIORITY 
2664 To 0 
2665 006306 012746 000000 MOV #PRO, -(SP) ;PUT NEW PS ON STACK 
2666 006312 012746 006320 MoV #655, - (SP) *PUT NEW PC ON STACK 
2667 006316 000002 RTI pop NEW PC AND PS 
2668 006320 65%: 
2669 
2670 +SEND A CHARACTER 
2671 006320 LET @TBUF : B= #0 
2672 006320 105077 172744 CLRB aTBUF 
2673 ;WAIT A — 
2674 OF 500 MSEC F 
2675 ;RCVR DONE TO SET IN RCSR 
2676 006324 CALL TIMER IN «#500. #RCVRDONE. RCSR, #&SET> 
2677 006324 010546 MOV RS, - (SP) 
2678 006326 012745 177777 MOV #SET, -(R5) 


2679 006332 016745 172722 MOV RCSR, -(R5) 
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006336 


006352 


006354 
006354 


006362 


006374 


006376 
006376 


006402 
006402 
006410 


006412 


006424 


006426 
0064 26 


006430 
0064 30 
0064 32 


0064 32 
006432 
0064 34 
0064 34 
0064 34 
0064 34 
0064 34 


0064 34 
0064 34 


006442 
006442 


006450 
006450 
006454 
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012745 


012605 


052777 


010546 
012745 
004767 
012605 


017700 


026727 
001411 


042777 
005767 
001002 
104111 


000401 


104112 


042777 


042777 


017704 
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000200 
000500 
001742 


000100 


000001 
002176 


172660 


002252 


000004 
002234 


000100 


000004 


172602 


PAGE 63 
RECEIVER INTERRUPT LOGIC TEST 
#RCVRDONE, - (RS) 
#500. -(R5) 


PC, TIMER 
(SP) +,R5 


172676 #RCURIE, ARCSR 


RS, - (SP) 
#1,-(R5) 
PC, WAIT 
(SP)+,R5 


ORBUF, RO 


000001 INTFLAG. #1 
$141 


172644 #MAINT, ATCSR 
INTFLAG 
$142 
111 


$143 


172616 #RCURIE, ARCSR 


172614 #MAINT, ATCSR 


@DL VEC, RY 


SEQ 0063 


SET INTERRUPT ENABLE 
LET ORCSR : = ORCSR SET. BY #RCURIE 


/LET IT COME IN. 
WAITMS 1 


LET RO: = @RBUF ; CLEAR RCVRDONE 
-D1ID HE DO IT RIGHT? 
IF INTFLAG NE #1 THEN 


*NONE OCCURED 
+ CAN NOT LEAVE WITH MAINT SET 
LET @TCSR : = @TCSR CLR. BY #MAINT 
IF INTFLAG EQ #0 THEN 
*RECEIVER DIO NOT INTERRUPT IN TIME 
ERRHRD 111.,D1DNOT 


TWICE OR MORE 
ELSE 


*RECEIVER INTERRUPTED TWICE 
ERRHRD 112,, TWICE 


ENDIF 
ENDIF 
ENDSUB 


+ CLEAR THE WORLD 
LET ORCSR : = ARCSR CLR. BY #RCURIE 


»RESET MAINT. BIT. 
LET aTCSR = @TCSR CLR. BY #MAINT 


LET R4Y : = @DLVEC 
CLRVEC R4 





MA 
CV 
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006454 010146 
000004 
000002 


012601 
006502 


O2-FEB-78 08:40 
T20 


PAGE 64 
RECEIVER INTERRUPT LOGIC TEST SEQ 0064 


R1,-(SP) 


(SP)+,R1 


+;PUSH R1 ON STACK 
++PUSH R2 ON STACK 


++POP STACK INTO R2 
+;POP STACK INTO R1 
ENOTST 





MA 
CV 
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+s MEXXERAAAAAAA AAA AAA AAAS AAA AAA AAA AAA AAA AAA AAA AAA AEE 

++ MEXAEAAAAA AEA AAA AAA AA SAA AAA AAA AAA AAA AAA AAA AAAS 

/KTEST 21 TEST ACTUAL DATA TRANSFERED 

;* NON- INTERRUPT MAINTENANCE BIT SET 
MAtecssstisssttisssittsisestsettttittiTitititttt ttt ttt ttt tT ttt tty 
OOCO04 TST21: SCOPE 


012767 000001 172446 M #1, STIMES +:D0 1_ ITERATION 
012767 000021 172460 #21, STESTN ++SET TEST NUMBER IN APT MAIL BOX 

IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EQ #TRU 
032767 O40000 172472 ae 


001404 BE 
126727 002365 000001 CONSOLE, # TRUE 
001004 $145 


EXIT TEST 
012767 000001 172412 #1,STIMES 
000526 TST22 +c EXIT hat ta 

| 


006550 
006550 
006550 LET ERRCHK : = #0 
006550 005067 001412 ERRCHK 

ET MAINT. BIT 


+SET M 
006554 LET aTCSR @TCSR SET. BY #MAINT 
006554 052777 QOO00004 172502 #MAINT. ATCSR 


a PRIORITY 


s.. 10 
006562 012746 000000 #PRO, - (SP) +;PUT NEW PS ON STACK 
012746 006574 #64, - (SP) ++PUT NEW PC ON STACK 

000002 +;POP NEW PC AND PS 


006574 
GET DATA MASK. 
006574 CALL DATLNG OUT <R1> 
162705 000002 #1%2,R5 
004767 001666 PC, DATLNG 
012501 (R5)+,R1 


006606 017700 172450 ORBUF. RO 


LET RO: = @RBUF ; START CLEAR 


ALL BINARY CHAR. 
006612 INCR R2 FROM #0 TO #377 BY #1 
005002 R2 
000401 $146 


005202 ‘ R2 
020227 000377 R2. #377 
006624 003062 $150 
; TRANSMIT CHAR IN R2 
006626 CALL TIMER IN <#S00. #XMITROY. TCSR. #SET> 


006626 010546 RS, -(SP) 
006630 012745 177777 #SET. -(RS) 
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016745 172424 TCSR, -(R5) 
000200 #XMI TROY, - (RS) 
000509 #500, -(R5) 
001440 PC, TIMER 

012605 (SP)+,R5 


103003 $151 
052767 000010 001300 #B.T3, ERRCHK 


IF. ERROR THEN 
LET ERRCHK : = ERRCHK SET. BY #BIT3 
ENDIF 


+ TRANSMIT IT 
006666 LET @TBUF : B= R2 
006666 110277 172376 R2. dTBUF 


006672 CALL TIMER IN <#500. #RCVRDONE. RCSR. #SET> 
010546 RS. - (SP) 
177777 #SET. - (RS) 
RCSR, -(R5) 
#RCURDONE, - (RS) 
#500. -(R5) 
001374 PC, TIMER 
012605 (SP)+,R5 


103003 $152 


IF. ERROR THEN 

LET ERRCHK : = ERRCHK SET. BY #BITY 
ENDIF 

AND SAVE IT 


006732 LET R3 : = @RBUF 
006732 017703 172324 ORBUF. R3 


052767 000020 001234 #B1T4, ERRCHK 
006732 


> COMPARE TO SEE IF WE RECEIVED IT ALL 


; CLEAN OFF NON-DATA BITS 
;ON BOTH TRANSMITTED AND 
006736 LET RY : = R2 CLR BY RI 
010204 MOV R2,R4 
040104 R1,R4 


006742 040103 R1,R3 


LET R3 : = RZ CLR. BY R1 


RECEIVED DATA 

006744 IF RY NE R3 THEN 
006744 020403 R4, RZ 
006746 001410 $153 

DATA COMPARE ERROR 

+ CAN NOT LEAVE WITH MAINT SET 
006750 LET O@TCSR : = OTCSR CLR. BY #MAINT 
006750 042777 O00004 172306 #MAINT, ATCSR 
006756 ERRHRD 116. COMP, SBWAS 
006756 104116 116 
006760 EXIT TEST ; ON ERROR 
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006772 
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012767 
000416 


000712z 


042777 


032767 
001401 


104130 


032767 
001401 


104131 


090001 


000004 
000010 


000020 


172172 


172264 
001160 


001146 


C 
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MOV 
BR 


#1, STIMES 
TST22 , 


$147 


#MAINT, ATCSR 
#B1T3, ERRCHK 
$154 


130 


#B1T4, ERRCHK 
$155 


131 


+37;EXIT THIS TEST 
ENDIF 


ENDINC =; R2 


RESET MAINT. BIT. 
LET @TCSR : = @TCSR CLR. BY #MAINT 


IF @#BIT3 SETIN ERRCHK THEN 


ERRHRD 130 
ENDIF 
IF #BITY SETIN ERRCHK THEN 


ERRHRD 131 
ENDIF 
ENDTST 
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ee © © © & $8 2 2 oD dD > > 0 0 2 2 2 2 8 0 2 2 2 2 2 9 9 0 2 0 0 0 2 2 0d 0 0 0 0 22 3 2 Fo 6 8 0 0 0 2 3 0 8 0 0 8 0 8 | 

+o MEXAKAAAAAAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAAS 

sKTEST 22 TEST DATA THROUGH WRAP 

+s MEXKAAAKAAA REAR AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
007024 000004 TST22: SCOPE 


012767 000001 172124 0 #1, STIMES +>D0 1_ITERATION 
012767 000022 172156 #22. STESTN +;>SET TEST NUMBER IN APT MAIL BOX 

IF #WRAP NOTSETIN SUSWR OR #COMSPD NOTSETIN SUSW 
032767 020000 172150 — 


001404 $1 
032767 000100 172140 # COMSPD, SUSWR 
001004 $157 
007062 
>CAN'T TEST WITHOUT A WRAP 


007062 EXIT TST 
FEREMTT TAIS VEST 
ENDIF 


007062 012767 000001 172079 #1,S$TIMES 
007070 000516 TST23 
067072 


007072 
DON'T USE MAINT. 
007072 LET @TCSR : = @TCSR CLR. BY #MAINT 
007072 042777 QOOO004 172164 #MAINT, ATCSR 
IF A SPECIAL TURN AROUND CARD IS 


CONNECTED IN PLACE OF THE WRAP 
; SETTING READER RUN WILL ENABLE IT. 
; THIS MODULE IS ONLY USED IN MANUFACTUR 
; AND ONLY ON THE CONSOLE OLV11-F 
; IF NO SPECIAL MODULE IS AVAILABLE. 
; AND THE WRAP BIT IS SET IN SUSWR 
; THEN THIS TEST WILL ERROR ON THE CONSO 


007100 LET @RCSR : = @RCSR SET. BY #11 
007100 052777 000011 172152 #11, @RCSR 
—-y PRIORITY 


007106 012746 000000 #PRO, -(SP) ;;PUT NEW PS ON STACK 
007112 012746 007120 #64S, -(SP) +;PUT NEW PC ON STACK 
007116 000002 ;;POP NEW PC AND PS 


007120 
;GET DATA MASK 
007120 CALL DATLNG OUT <R1> 
007120 162705 000002 #1%2,R5 
007124 004767 001342 PC, DATLNG 
007130 012501 (R5)+,R1 
007132 LET RO : = @RBUF ; START CLEAN 
007132 017700 172124 ORBUF, RO 
+BINARY COUNT PATTERN 


007136 INCR RZ FROM #0 TO #377 BY #1 
005002 R2 
000401 $160 
005202 R2 


020227 000377 C R2, 8377 
007150 003063 $162 
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> TRANSMIT THE CHAR. IN RZ. 


+ MAKE SURE IT'S READY 
007152 CALL TIMER IN <#500. #XMITRDY. TCSR, #SET> 
010546 RS, - (SP) 
012745 177777 RSET, -(R5) 
016745 172100 TCSR, -(R5) 
012745 o00z20r #XIT1 TROY, -(R5) 
012745 000500 #500, -(R5) 
004767 001114 PC, TIMER 
012605 (SP)+,R5 
IF. ERROR THEN 
103005 $163 


104123 123 + TRANSMITTER NEVER BECAME READY 


EXIT TEST 
012767 000001 171744 #1,$TIMES 
000444 TST23 


s2 2 ERT THIS TEST 
ENDIF 


007216 


*START IT ON ITS WAY 
007216 LET @TBUF : B= R2 
007216 110277 172046 R2, dTBUF 
+ NOW WAIT FOR RECIEVER DONE 


007222 CALL TIMER IN <#500. #RCVRDONE. RCSR, #SET> 
010546 RS, -(SP) 
012745 177777 
016745 172024 
012745 000200 #RCURDONE. - (RS) 
012745 000500 Io #500. -(R5) 
004767 001044 PC, TIMER 
012605 (SP)+,R5 


103005 $164 
ERRHRD 124 


007254 104124 124 
> RECIEVER NEVER BECAME READY 
007256 EXIT TEST 
012767 000001 171674 #1,S$TIMES 
000420 TST23 +3-EXIT me 
ND | 


IF. ERROR THEN 


007266 


, RETRIEVE 
007266 LET R3 : = ORBUF 
007266 017703 171770 ORBUF.R3 


STRIP OFF JUNK ON BOTH 
007272 LET RY : = RZ CLR. BY R1 
007272 010204 R2.R4 
007274 040104 R1,R4 
007276 LET R3: = RZ CLR. BY R1 
007276 040103 R1,R3 


*WE HAVE TROUBLE 





va 
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007300 
007300 
007302 


007304 


007316 
007316 


007316 
007320 


007320 
007320 


007326 
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020403 
001405 


104117 


012767 
000404 


000711 


052777 


000001 


000011 


171644 


171732 
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CMP RY, RZ 
BEQ $165 


ERROR 117 


MOV #1,$TIMES 
BR TS723 


#11, 9RCSR 


SEQ 0070 
IF RY NE R3 THEN 
;DATA COMPARE ERROR 
ERRHRD 117, COMP, SBWAS 
EXIT TEST ; ON ERROR 
+3;7EXIT THIS TEST 
ENDIF 


ENDINC ; R2 


+ NOW THAT THE TEST !S DONE 

+ WE WILL TOGGLE READER RUN 

+ TO TURN OFF THE SPECIAL MODULE. 
LET ORCSR : = ARCSR SET. BY #11 


ENDTST 
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re 22 2 oo 22 2 9 2 2 22 do 22d 0 0 2} 2 od 0 0 2 0 0 028 0 0 0? F002? 0 2 2 22 0 0 022 0 0 22 8 8 8 8 | 
1s MEXEREAAAAAAA AAA AAA AAA AAA AAA AAA AAA EEE 
/KTEST 23 FULL DATA TRANSFER WITH INTERRUPTS 
* AND MAINTENANCE MODE. 
PE LSS S22 2 8 22S 02 0 8 8 F 9 9 9d 0 2 2 8 002 28 8 8 8 8 8 8 0 028 2 2 2 8 2 0 2 8 8 0 0 0 8 0 8 0 0 009 88 | 
007326 OOC004 TST23: SCOPE 
007330 012767 OO00001 171622 MOV #1,S$TIMES +,D0 1 ITERATION 
007336 012767 O00023 171634 MOV #23. S$TESTN +;SET TEST NUMBER IN APT MAIL BOX 


007344 IF #MAINTJUMP NOTSETIN SUSWR ORB CONSOLE EQ #TRU 
007344 032767 O4O000 171646 BIT #MAINT JUMP, SUSWR 

007352 001404 BEQ $166 

007354 126727 001541 900001 CMPB CONSOLE, # TRUE 

007362 001004 BNE $167 

007364 

007364 EXIT TEST 
007364 012767 000001 171566 MOV #1, $TIMES 

067372 000553 BR TST24 7+;EXIT THIS TEST 
007374 ENDIF 

007374 


>GET DATA MASK 
007374 CALL DATLNG OUT <R3> 
007374 162705 000002 #1%2,R5 
007400 004767 001066 PC, DATLNG 
007404 012503 (R5)+,R3 


> THIS TEST WILL RUN BOTH TRANSMITTER AND 

> RECIEVER AT FULL SPEED TESTING 

; THE ABILITY OF THE MODULE 

; TO HANOLE INTERRUPTS FROM BOTH SIDES 

; AT ONCE. ALSO, THE DOUBLE BUFFERING LOGIC 

> OF THE UART WILL BE FULLY TESTED. 

+ THIS TEST WILL TRANSFER A MAXIMUM OF 400(8) 

+ CHARACTERS THROUGH THE MODULE. BUT IF AN ERROR 

+ IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 


+ CHANGE PRIORITY 
;..T0 0 


007406 012746 000000 #PRO. -(SP) >; PUT NEW PS ON STACK 
007412 012746 007420 #645, - (SP) ;;PUT NEW PC ON STACK 
007416 900002 ;;POP NEW PC AND PS 


007420 

+GET VECTOR ADDRESS 
007420 LET R1 : = DLVEC 
007420 016701 171632 DLVEC. R1 

*RCVR VECTOR 


007424 LET (R1)+ : = #REC 
007424 012721 007626 REC, (R1)+ 
007430 LET (R1)+ : = #PR7 
007430 012721 000340 #PR7, (R1)+ 
POINT TO TRANSMITTER VECTOR 


AND SET IT UP ALSO 
0074 34 LET (R1)+ : = #TRAN 
007434 012721 007564 a TRAN, (R1)+ 
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007440 
007440 
007444 
007444 


007450 
007450 


007454 
007454 


007456 
007456 


007462 
067462 


007464 
007464 
007472 
007472 


007500 
007500 


007506 


007522 


007522 
007522 


007530 
007530 
007534 


007536 
007536 
007540 
007540 


007540 


007546 
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012711 


005067 


012701 


005002 


012704 


000005 


052777 


052777 


052777 


020467 
001403 
005767 
003772 


042777 


005767 
001401 


104120 


042777 
042777 
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000340 


000106 


177777 


177777 


000004 


000100 


000100 


000046 
000036 


000004 


000022 


000100 
000100 


171572 


171564 


171552 


171534 


171516 
171504 


H 
; FEB-78 08:40 PAGE 


72 
FULL DATA TRANSFER WITH INTERRUPTS 


MOV 


CLR 


mPR7, (R1) 


ERRCNT 


#-./R1 


R2 


#MAINT, dTCSR 


#XMITIE, dTCSR 


#RCVRIE. ARCSR 


R4, NUMBER 
$17 


#MAINT. dTCSR 


ERRCNT 
$172 


120 


RXMITIE, OdTCSR 
@RCVUR IE, ORCSR 


SEQ 0072 


LET (R1) : = #PR7 


> CLEAR ERROR COUNTER 
LET ERRCNT : = #0 


+ INITIALIZE COUNTERS 
LET R1 := #-1 


RECEIVER STORAGE 
LET R2:= #0 


7# OF RECEIVED CHAR. COUNT. 
LET RY : = #-1 
BRESET ;SET UP ALL REGISTERS 

SET UP MAINTENANCE 
LET @TCSR : = @TCSR SET. BY #MAINT 

2 SET E. IN TRANSMITTER 
LET @TCSR :  aTcse SET. BY #XMITIE 


AND RECEIVER 
LET @MRCSR : = @ARCSR SET. BY #RCURIE 


er WAIT UNTIL RY COUNT (RECEIVED) 1S EQUAL 


UNTIL R4Y EQ NUMBER OR ERRCNT GT #0 


LET aTCSR : = @TCSR CLR. BY #MAINT 
+ CHECK FOR DATA COMPARE ERRORS. 
IF ERRCNT NE #0 THEN 
>DATA COMPARE ERROR 
ERRHRD 120. COMP. FIRST 


ENDIF 


LET @TCSR : = OTCSR CLR. BY &#XMITIE 
LET ORCSR : = ORCSR CLR. BY #RCURIE 
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007554 
007554 


007556 
007560 
007562 
0075623 


007564 
007564 


007564 
007564 


007566 
007566 
007572 


007576 
007576 


007604 
007604 
007610 


007612 
007612 
007620 
007620 
007620 
007622 


007624 
007624 


007626 
007626 


007626 
007626 


007630 
007630 


000462 
000000 


005201 


010167 
040367 


016777 


020167 
001003 


042777 


000401 


000000 


000002 


005204 


017702 
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000030 
000024 


000020 


177750 


000100 


171426 


FULL DATA TRANSFER WITH INTERRUPTS SEQ 0073 
EXIT > SKIP OVER SUPPORT ROUTINES & STORAGE 
BR TST24 77,EXIT THIS TEST 
ERRCNT: O 
NUMBER: 1000 
SB: . BYTE O 
WAS: . BYTE 0 


ree 22 2 So 8 FS 2 f 8 # 9 9 9 8 & 0 © OF 0 8 8 8 8 0 8 8 8 oO 8 8 0 8 8 0 8 oo 0 0 F080 8 08 0 09 8 F008 808 8 | 
> TRANSMIT INTERRUPT HANDLER 
BGNSRV TRAN 
TRAN 


(agouti o goog op gogo oOo OE 


; INCREMENT CHAR COUNT 
LET R1 := R1 + #1 


SET UP FOR TRANSFER 
LET HOLD := R1 CLR BY RZ 


INC R1 


MOV Ri, HOLD 
BIC R3, HOLD 


+ AND SEND. 
LET @TBUF : = HOLD 


171464 MOV HOLD. dTBUF 
> ALL DONE 
IF R1 EQ NUMBER THEN 
CMP R1, NUMBER 
BNE $173 
; STOP INTERRUPT PROCESSING 
LET @TCSR : = @TCSR CLR. BY #XMITIE 
171444 BIC #XMITIE, dTCSR 
ENDIF 
$173: 
BR 222 >; EXIT SRV 
HOLD: 0 
222: ENDSRV 
RTI 


ee £22 2 2 2 2 2 2? 2 2 2 2 8 2 f 8 8 0 9 22 2922. 22.9222 8 02802 2222522222 0222990299908 | 
RECEIVER INTERRUPT HANDLER 
REC BGNSRV REC 


esessessistesessesetsetissttisttstttitttstssestts esti sess tts ttt 


COUNT THIS CHAR. 
LET RY: = RY + #1 


»GET CHAR IN + MASK IT 
LET R2 : = @ORBUF CLR. BY RZ 


INC RY 


MOV ORBUF,R2 
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007634 


007636 
007636 
007642 


007646 
007646 
007652 


007654 
007654 
007660 


007662 


007674 


007674 
007674 
007700 
007700 


007700 
007700 
007704 


007706 
007706 


007714 
007714 


097714 
007716 
007720 
007720 
007720 


007722 


02-FEB-78 
040302 


010467 
040367 


020267 
001412 


005767 
001005 


116767 
110267 


005267 


020467 
001003 


042777 


000401 
000000 


000002 
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000054 
000050 


000044 


177676 


000030 
177667 


177656 


177654 


000100 


177672 


171344 


$175: 


$174: 


$176: 


2222: 


J 
O2-FEB-78 08:40 PAGE 
23 


74 
FULL DATA TRANSFER WITH INTERRUPTS SEQ 0074 


BIC R3,.R2 
MOV R4,RHLD 
BIC R3,RHLD 
CMP RZ, RHLD 
BEQ $174 

TST ERRCNT 
BNE $175 

MOvVB RHLD. SB 
MOvVB R2, WAS 
INC ERRCNT 
CMP R4, NUMBER 
BNE $176 

BIC #RCVRIE, ORCSR 
BR 2222 

RTI 


+ RHLD wine CONTAIN EXPECTED INPUT 
LET RHLD : = R4Y CLR. BY RZ 


+D0 THEY COMPARE 
IF R2 NE RHLD THEN 


FIRST ERROR 
IF ERRCNT EQ #0 THEN 


a ey OF —< MISS 


T SB: B= R 
LET WAS : B= R2 
ENDIF 
> COUNT IT. 
LET ERRCNT : = ERRCNT + #1 


ENDIF 


;ALL DONE? 
IF RY EQ NUMBER THEN 
>STOP RECEIVER INTERRUPTS 
LET @ORCSR : = ARCSR CLR. BY #RCVRIE 
+ INDICATE ALL DONE TO TIMER 
>MAIN REPEAT LOOP IS CHECKING 
;FOR 'R4Y = NUMBER’ ALSO 
ENDIF 
EXIT SRY 
RHLD: 0 


ENDSRY 


ENDTST 
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007732 
007740 
007740 
007746 


010010 
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000004 
012767 
012767 


032767 
001404 
032767 
001004 


012767 
000500 


126727 
001004 


012767 
000470 


005067 


010014. 


010014 


010022 
010022 


010030 
010030 


010036 


010070 
010070 


052777 


052777 


012777 


010546 
012745 
016745 
012745 
012745 
004767 
012605 


103001 


104115 
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000010 
000024 


040000 
010000 


000001 


001125 


000001 


000152 


000004 


000001 


000252 


177777 
171210 
000200 
000500 
000230 


171226 
171240 


171252 
171242 


171172 


000001 


171152 


171242 


171234 


171232 
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oe 222% So 22d 2 3 22 2 oo 22 do 2? 0 0 2? 2 0 0229 0028 3 0 0 209 0229 8 2 023 8 208 2 02 22 8 8 | 
+s MXXEKEEAAAA EAA AA AREA AAA AAA AAA AAA AAAS 


;KTEST 24 TEST BREAK GENERATION LOGIC 
;x TRANSMIT KNOWN CHAR WITH BREAK SET 
re AND COMPARE RECEIVED WITH O. 
eC FRAMING ERROR WILL ALSO BE CHECKED 
2 IF ERROR BITS ARE ENABLED. 
PUTTS TT TTTTTTTTETTTETTT TTT ETT TTT ETE TTTTT ETE T TTT TET TT ETT TTT TTT 
TST24: SCOPE 
MOV #10, STIMES +00 10 ITERATIONS 
MoV #24, STESTN SET TEST NUMBER IN APT MAIL BOX 
IF #MAINTJUMP NOTSETIN SUSWR OR #BRK NOTSETIN $U 
BIT #MAINTJUMP. SUSWR 
BEQ $177 
BIT # BRK, SUSWR 
BNE $200 
$177: 
EXIT TEST 
MOV #1,STIMES 
BR TST25 sc2EXIT THIS VEST 
ENDIF 
$200: 
1FB CONSOLE EQ #TRUE THEN 
CMPB CONSOLE. # TRUE 
BNE $201 
EXIT TEST 
MoV #1,STIMES 
BR TST25 sesERUT TRS TEST 
ENDIF 
$201: 
LET ERRCHK : = #0 > CLEAR ERROR WORD 
CLR ERRCHK 


> SET MAINTENANCE BIT 
LET @TCSR : = @TCSR SET. BY #MAINT 


SET BREAK BIT 
LET @TCSR : = @TCSR SET. BY #BREAK 


NON- -7e0e CHAR. ‘x’ 
LET aTBUF :3 


WAIT FOR DONE 
CALL TIMER IN «#500, SRCVRDONE, RCSR. #SET> 


BIS #MAINT, dTCSR 


BIS #BREAK, aTCSR 


MOV #252. dTBUF 


MOV RS, - (SP) 

MOV #SET, -(R5S) 

MOV RCSR, - (RS) 

MOV #RCURDONE, -(R5) 
MOV #500, - (RS) 

JSR PC, TIMER 

MOV (SP)+,R5 


BCC $202 


IF. ERROR THEN 


> RECIEVER DONE DID NOT SET 
ERRHRD 115 
ERROR 115 
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010072 
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010072 
010072 
010076 


010100 


010136 


010136 
010136 


010140 


010140 
010146 


010170 
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105777 
001404 
052767 
000413 
032767 
001407 


032777 
001003 


052767 


000005 
032767 
001401 
104121 


032767 
001401 


104122 


000401 
000000 
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171164 


000001 


100000 


020000 


000002 


000001 


000002 


000060 


171102 


171134 


000030 


000020 


000006 
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T24 TEST BREAK GENERATION LOGIC 


$202: 


$210: 


ERRCHK: 


BR 
. WORD O 


ORBUF 
$203 


#B: TO, ERRCHK 
$204 


#ERRBITS, SUSWR 
$205 

#FRERR, ORBUF 
$206 


#B1T1, ERRCHK 


#B 1 TO, ERRCHK 
$207 


121 


#B1T1, ERRCHK 
$210 


122 


SEQ 0076 


ENDIF 
1FB ORBUF NE #0 THEN 
+ BREAK DID NOT EQUAL O 
LET ERRCHK : = ERRCHK SET. BY #B1T0O 
ELSE 
IF ®ERRBITS SETIN SUSWR THEN 


IF #FRERR NOTSETIN @RBUF THEN 


LET ERRCHK : = ERRCHK SET. BY #BIT1 
ENDIF 
ENDIF 
ENDIF 


BRESET ;CLEAN UP 


IF #BI1TO SETIN ERRCHK THEN 


ERRHRD 121 ;BREAK ERROR 
ENDIF 
IF #BIT1 SETIN ERRCHK THEN 


ERRHRD 122 ; FRAMING ERROR 
ENDIF 


EXIT 
73;EXIT THIS TEST 
ENDTST 





Mf 
C\ 


M 6 
MAINDEC-11-DVDVC-B MACY11 30A(1052) O2-FEB-78 08:40 PAGE 77 
T24 TEST BREAK GENERATION LOGIC SEQ 0077 


CVDVCB. P11 O2-FEB-78 08: 39 


2s MEXKXKEAEAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA KEY 

sKTEST 25 NOT A TEST - SEND BACK TO LOOP 

js MXXKKEAKAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
010170 000004 ST25: COPE 


T 
012767 000001 170760 Vv #1,STIMES 7:00 1 ITERATION 
104401 010206 , 655 >> TYPE ASCIZ STRING 
000404 BR 645 +>GET OVER THE ASCIZ 
+7658: .. <CRLF>XCSR: xk 


010216 64S: 

010216 016746 171032 DLADD, - (SP) ++ SAVE DLADD FOR TYPEOUT 

010222 104402 ++GO TYPE--OCTAL ASCIIC(ALL DIGITS) 
010224 104401 010232 , 67% +> TYPE ASCIZ STRING 

010230 o00405 BR 66$ ++GET OVER THE ASCIZ 

010244 


010244 016746 171006 DLVEC, -(SP) +;SAVE OLVEC FOR TYPEOUT 
010250 104402 *;GO TYPE--OCTAL ASCIICALL DIGITS) 
010252 104401 010260 , 69% ++ TYPE ASCIZ STRING 
010256 000405 BR 68$ +;GET OVER THE ASCIZ 
KX, ERRORS: x 
010272 


010272 016746 170614 SERTTL, -(SP) +;SAVE SERTTL FOR TYPEOUT 

010276 104405 +:GO TYPE--DECIMAL ASCII WITH SIGN 
010300 005067 170606 SERTTL + RESET FOR NEXT DEVICE/PASS 
010304 104401 001171 , SCRLF 

010310 000167 171622 LOOP + BACK UP TO THE BEGINNING 
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> BGNNOD SUBS 
METTTTTTTTiSiiiTttteTtititetreTee Tri TTTTTtTTeTT Teeter 
010314 ROUTINE TIMER <HOWLONG, WHICHBIT, REG. SETCLR> 


010314 TIMER: 
/* ROUTINE: TIMER 
THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 
IN ANY REGISTER. 
INPUTS: 
HOWL ONG Remo OF TIME TO SPEND IN 
U 


T 
WHICHBIT A MASK WITH THE BIT(S) SET THAT ARE 
TO BE CHECKED. 
REG A POINTER TO THE REGISTER TO BE CHECKED 
SETCLR THE DESIRED RESULTS 
EITHER #SET OR #CLEAR 
OUTPUT: 


THE 'C' BIT IS SET TO INDICATE AN ERROR 
BUT IT IS TESTED BY THE IF. ERROR STATEMENT 


ee ee 


ek ee ee 
* DE DE PE DE DE DE DE DE DE DE DE PE DE DE DE DE DE 


Bs Ve Ve We 


NOTE:: THE USE OF (R5) 1S PART OF THE LINKAGE 
MECHANISM BETWEEN THE CALLER AND THE CALLED 
js MAXHA AAA AA AA AAA AAA AAA AA A AAA AA AAA AAA AAA AAA AERA AAA AAA AAAS 


000001 TRUE= 1 
000000 FALSE= 0 ‘ 


010314 LET REGSAV : = REG(RS) ; GET POINTER TO REGIST 


016567 000004 000136 REG(RS), REGSAV 

LET TIMSAV : = HOWLONG(RS) ; SAVE HOWLONG FOR 
016567 000000 000132 HOWL ONG(RS), TIMSAV 

LET FLAG : B= #FALSE =; INITIALIZE THE EXIT FLA 


010330 112767 000000 000126 RFALSE. FLAG 


Be Ve Ve Be Be BY 


START OF AN INFINITE LOOP 
010336 
010336 
+ TEST TO SEE IF WHICHBIT IS SET 

010336 WHICHBIT(RS) NOTSETIN @REGSAV THEN 

036577 000002 000114 WHICHBIT(RS), dREGSAV 

001004 $215 

112767 O00000 000111 #CLR, HOLDSC 


000403 B $216 


LET HOLOSC : B= #CLR 
ELSE 


LET HOLOSC : B= #SET ; REMEMBER THIS 
ENO IF 


112767 177777 000101 #SET, HOLDSC 
010364 


» NOW SEE IF THAT WAS WHAT WE WANTED 
010364 1FB HOLDSC EQ SETCLR(RS) THEN 
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010364 126765 000075 000006 CMPB 5 lata tga 


010372 001003 BNE 
; JUST THE THING WE NEEDED 
010374 LET FLAG : B= #TRUE 
112767 000001 000062 MOVB # TRUE. FLAG noir 


EXIFB FLAG EQ #TRUE OR TIMSAV LE #0 
126727 000056 000001 FLAG, #TRUE ' 
001414 $214 
005767 000044 TIMSAV 
010416 003411 $214 
+ ONE WAY OR THE OTHER. WE ARE DONE 
+ IF WE ARE STILL HERE THEN HANG AROUND A WHILE 


010420 WAITMS 1 +WAIT FOR 1 MILLI-SECONDS 
010546 RS, - (SP) 
012745 000001 #1,-(R5) 
004767 000140 PC, WAIT 
012605 (SP)+,R5 


005367 000022 TIMSAV 


000736 $213 
010442 


LET TIMSAV : = TIMSAV - #1 > COUNTING DOWN 
ENOLOOP + CONTINUED AT THE TOP 


+ ONLY e ~ TO GET HERE 
; . WE RAN OUT OF TIME---ERROR ! ! 
; 2) THE BIT 1S IN THE CORRECT CONDITION--GOOD ! ! 


010442 IFB FLAG EQ #TRUE THEN 
010442 126727 000016 000001 FLAG. # TRUE 

010450 001001 $220 

010452 RETURN NO. ERROR + GOOD 
010452 000405 $211 

010454 ENDIF 

010454 

010454 RETURN ERROR . + BAD 
010454 000261 

010456 000404 


010460 000000 REGSAV: . WORD O 
010462 
010464 
010465 


010466 
010466 
010466 000241 
010470 
010470 000207 


HOLDSC: . BY 
+ WE ARE DONE GO BACK HOME 
ENORTN 
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js MAXKKEAEAAAA AAA AAA EAA AAA AAA AAA AAA AAAS 
010472 t+ leg DATLNG <MASK> 


010472 DATLNG: 
> ROUTINE: DATLNG 
| THIS ROUTINE SETS UP A MASK FOR DATA, WITH 
>% INPUT - NOTHING IS PASSED TO THIS ROUTINE 
; BUT GLOBAL INFORMATION IS ASSUMED TO EXIST: 
; SUSWR-- THE WORD FOR SOFTWARE PARAMETERS 
; DATA-- A MASK FOR THE LOCATION OF THE OCTAL 
; NUMBER OF DATA BITS 
GUTPUT--<- 


: MASK-- A MASK OF BINARY ONES RIGHT- JUSTIFIED 
: THE NUMBER OF WHICH IS DEFINED IN SUSWR WORD. 


re © © % © & oo 9 9 2 0 3 2D & 9 & Dd 0 3 09 8 0 8 6 0 0 0 8 0 2 9 9 DF 9 8 0 0 2 0 0 92 8 0 0 0 0 0 0 0 99 000508! 
010472 LET MASK(RS5) : = #0 
005065 000000 MASK (RS) 
LET NUMBR : = SUSWR AND #DATA 
016767 170516 000062 SUSWR. NUMBR 
016746 NUMBR, - (SP) 
042716 #DATA. (SP) 
010514 042667 (SP) +, NUMBR 
010520 INCR | FROM #1 TO NUMBR BY #1 
012767 000001 170544 
000402 
005267 170536 


026767 170532 000024 |, NUMBR 
003006 $225 


006365 000000 MASK (RS) 
052765 000001 000000 #1, MASK(RS) 
000764 $224 


LET MASK(RS) : = MASK(RS) SHIFT 1 
LET MASK(RS) : = MASK(RS) SET. BY #1 
END INC 
LET MASK(RS) : = COMP MASK(RS) 
005165 000000 COM MASK (RS) 


000401 BR $221 
000000 NUMBR: 0 


RETURN 


ENORTN 


010570 000207 RTS 
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010146 
010246 
010346 
016501 


012702 
000402 


062702 


020201 
101010 


005003 
000401 


005203 


020327 
003001 


000773 


000764 
012603 


012602 
012601 


000207 


000000 
000001 


000001 


000100 
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2s MEXAAERAAAAAAA AAA AAA AAA AAA AKA AA AAA AAA AAA AAA AES 
ROUTINE WAIT <TIME> 


WAIT: 
ix ROUTINE: WAIT 
THIS ROUTINE 1S USED TO DELAY EXECUTION OF THE 
ot MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TINE. 
eS THIS 1S ACCOMPLISHED BY INCREMENTING A 
:x te abone UP TO A LIMIT. THE INNER LOOP IS SET 
rs TO APPROXIMATE 1 MILLI SEC. 
+s MEXEAEKAAEREA A EREE RASA AERA AAA A AEA AAA AAR AAA AREA AA AAA AAS 
MOV R1,-(SP) ;PUSH R1 ON STACK 
R2,-(SP) ;; PUSH RZ ON STACK 
R3.-(SP) ;;PUSH R3 ON STACK 
>= TIMECRS) 
TIME (RS), R1 
INCRU RZ FROM #1 TO R1 BY #1 
MOV #1,R2 


BR $230 
ADD #01,R2 
CMP R2,R1 
BH! $232 

INCR R3 FROM #0 TO #100 BY #1 
CLR R3 
BR $233 
iNC R3 


CMP R3, #100 
BGT 


BR 
END INC 
BR 


$235: 


$232: 
(SP)+,R3 ;;POP STACK INTO R3 
(SP)+,R2 +;POP STACK INTO R2 
(SP)+,R1 +;POP STACK INTO R1 
ENORTN 


PC 
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010652 


010652 
010652 
010656 
010656 
010660 
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005267 000002 


000002 
000000 


em, 
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ROUTINE 


. SBTTL 
INTSRV: 


7k SERVIC 


, 


, 
, 
, 


x 


INTFLAG: 


- WAIT 


INTSRV 


"INTFLAG' 


E ROUTINE: 
THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 
EACH TIME IT IS CALLED. IT ASSUMES 


INTERRUPT SERVICE ROUTINE 
pe © © & % $2 9 2 22 2D 0 0 0 0 0 3 02 F982 0 02 8 0 0 8 0 0 0 2 2 8 D0 0 0 6 0 0 20003 0 0 0 0 000000888) 


INTSRV 


THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR 
ee 2 2 2 2 2 2 2S 2 2 8 8 8 2 8 8 8 8 8 8 8 0 2 22 2 22 2 22 22 2 02 2 2 2 22 2 22 2 2 2 2 2 0 0 2 0 0 2 00988 8 8 | 


INC 
ENDSRV 
RTI 

0 


INTFLAG 


*ADD 1 TO 


"INTERRUPT OCCURED’ FLAG 
LET INTFLAG : 


+ THAT'S ALL 


INTFLAG + #1 


SEQ 0082 
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010662 ROUTINE CYCLE 
CYCLE: 


010662 
re 2.2 22% 9 2 22 oo 0 22 oo 0 2 0 0 to 0 0 8 2 0 0 02d 0 0 0 28 0 000 0 0 0 08 0 0 023 0002308 82 8 8 | 
>& ROUTINE: CYCLE 
; THIS ROUTINE CAUSES ADRS TO POINT TO THE 
ADORESS OF OLV11-F UNDER TEST. ADRS +2 TO 
POINT TO THE VECTOR OF THE DLV11-F UNDER TEST. 
(\T KEEPS TRACK OF THE CURRENT DEVICE AND BIT 
MASKS. THE CONSOLE IS TREATED SPECIAL BY THIS ROUTINE. 
1T 1S ONLY TESTED ONCE IF UNDER APT. IF NOT UNDER APT 
; ALL TESTS THAT REQUIRE THE MAINT BIT ARE NOT RUN. 
ee So 2 2D > 0 DD > > @ 2 3 Db 8 9 8 9 0 9 9 0 0 2 8} 0 9 039 0 0 009 02399 2939222999 09 88 8 8 | 
010662 LET APTCON :B= #FALSE =; SET DEFAULT VALUE 
112767 000000 000230 MOVB #FALSE, APTCON 
LET CONSOLE : B= #FALSE 


112767 000000 000223 MOVB #FALSE, CONSOLE 
REPEAT + UNTIL BITMASK SETIN SDEVM 
IF BITMASK EQ #0 THEN 
005767 000200 TST BI TMASK 
001027 BNE $241 


026727 000174 000001 CMP INITFLAG, #1 
001003 BNE $242 


005067 000164 CLR INITFLAG 
000403 BR $243 


IF INITFLAG EQ #1 THEN 


LET INITFLAG : = #0 
ELSE 

010722 004767 000370 JSR PC, SEOP ante og dt een 
010726 SPEC IALADDRESS: » BECAUSE SEOP RETURNS AS A JUMP 

012600 MOV (SP)+,RO rept al het 

$243: 

012767 000001 000144 #1,21TMASK 

012767 000001 170240 #1, $DEVCT 

016767 170300 000134 SBASE, ADDRESS 

016767 170266 000130 SVECT1, VECTOR 

000410 $244 


ENDIF 
BITMASK := #1 
SDEVCT := #1 
ADDRESS : = SBASE 
VECTOR : = SVECTI 


RY : = #10 

RITMASK : = BITMASK ROTATE 1 
ADDRESS := ADDRESS + RY 
VECTOR : = VECTOR + RY 


012704 000010 #10, R4 

006167 000110 B | TMASK 

060467 000110 R4, ADDRESS 
010776 060467 000106 R4, VECTOR 
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011002 END IF 


$244: 
UNTIL BITMASK SETIN SDEVN 
036767 000074 170242 ee 


001732 

IF BITMASK EQ #B1T15 THEN 
026727 000064 1090000 BITMASK, #B1T15 
001023 $245 
112767 000001 000071 # TRUE. CONSOLE 
016767 000060 000050 CONROR, ADDRESS 


011036 016767 000054 9000044 CONVECT, VECTOR 


LET CONSOLE : B= #TRUE 
LET ADDRESS : = CONADR 
LET VECTOR := CONVECT 


IF #CONMAINT NOTSETIN SUSWR THEN 
LET NOCONMAINT : B= #TRUE 


; ENDIF 
011044 IF #APTENV SETIN SENV THEN ; APT MODE 
011044 032767 000001 170142 #APTENV, SENV 
011052 001406 $246 
011054 IF SPASS NE #0 THEN ; NOT FIRST PASS 
011054 005767 170122 SPASS 


011060 001403 $247 
; rit “— AS APT CONSOLE 
011062 LET APTCON : B= &TRUE 

011062 112767 000001 000030 # TRUE. APTCON 

011070 ENDIF > FIRST PASS 

011070 

011070 ENDIF ; APT 

011070 

011070 ENDIF ; BITMASK 

011070 


011070 LET ADRS : = #ADDRESS 
012701 011106 eaten  y 
L 


T SDEVCT := SDEVCT + #1 
005267 170104 SOEVCT 
000411 


B $23 
BI TMASK: + CONSOLE FIRST 
INI TELAG: 1 


+ CONSOLE ADDRESS 
+ CONSOLE VECTOR 


CO00000000 
> oe oe oe oe ot oe 
NHK --o0 
YOK fnoe 


0 NOC ONMANT: 
011124 _ EVEN 


ENDRTN 
$236: 
$237: 
000207 RTS 
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3710 

3711 011126 ROUTINE MYTYPE 

3712 011126 MYTYPE: 

3713 ee 22 2 2 oo oo 2 2 Sd 0 0 8 & 8 & 9 & 0 0 0 0 8 8 8 8 8 8 8 8 8 8 8 8 8 0 8 © 0 8 0 8 0 0 0 8 3900300000808 38 | 
011126 104401 011134 TYPE , 65% ++ TYPE ASCIZ STRING 

+,GET OVER THE ASCIZ 


011132 oO0C405 B 64S 
++ 65S: CCRLF>KTEST # & 


011146 64S: 

011146 016746 170026 STESTN. -(SP) >; SAVE STESTN FOR TYPEOUT 

011152 104402 +;GO TYPE--OCTAL ASCIIC(CALL DIGITS) 

011154 104401 011162 675 >; TYPE ASCIZ STRING 

011160 oO00405 665 ;;GET OVER THE ASCIZ 
porn. x, ERROR # & 

011174 66S: 

011174 116767 167714 167774 $I TEMB. SFATAL > APT FATAL ERROR NUMBER 

011202 167770 SFATAL. -(SP) >;SAVE SFATAL FOR TYPEOUT 

011206 +;GO TYPE--OCTAL ASCII 

011210 : 6 +; TYPE 6 DIGITS 

011211 ; 0 +; SUPPRESS LEADING ZEROS 

011212 011220 , 699 >, TYPE ASCIZ STRING 

011216 OOO0404 685 +;GET OVER THE ASCIZ 


x,PC = k 
011230 
011230 016746 167662 SERRPC, -(SP) ++ SAVE SERRPC FOR TYPEOUT 
011234 104402 ++GO TYPE--OCTAL ASCIIC(ALL DIGITS) 
011236 104401 011244 +; TYPE ASCIZ STRING 
011242 000404 B >>GET OVER THE ASCIZ 


011254 
011254 016746 167774 DLADD. - (SP) ++SAVE DLADD FOR TYPEOUT 
011260 104402 +;GO TYPE--OCTAL ASCIICALL DIGITS) 
011262 104401 011270 ,73$ +; TYPE ASCIZ STRING 
011266 000405 723 +;GET OVER THE ASCIZ 
x, VECTOR: & 
011302 


011302 016746 167750 DLVEC, - (SP) >;SAVE OLVEC FOR TYPEOUT 

011306 104402 >;GO TYPE--OCTAL ASCIICALL DIGITS) 
011310 104401 001171 , SCRLF 

011314 ENDRTN 

011314 $250: 

011314 $251: 

011314 000207 
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.SBTTL END OF PASS ROUTINE 


7s MEXEKAEEAAAAA AAA AAA AAA AAA AAA AAA 
> XINCREMENT THE PASS NUMBER ($PASS) 
> KINDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
TYPE "END PASS #XXXXx" (WHERE XXXXX IS A DECIMAL NUMBER) 
KIF THERES A MONITOR GO TO IT 
AIF THERE ISN'T JUMP TO SPECIALADDORESS 


011316 SE OP: 
011316 O00004 
011320 005067 167556 CLR STSTNM ++Z2ERO THE TEST NUMBER 
011324 005067 167630 STIMES ++2ERO THE NUMBER OF ITERATIONS 
011330 005267 167646 SPASS ++ INCREMENT THE PASS NUMBER 
011334 042767 100000 167640 #100000,$PASS ;;DON'T ALLOW A NEG NUMBER 
011342 005327 (PC)+ ++ LOOP? 
011344 000001 SEOPCT: . 1 
011346 003022 SOOAGN +> YES 
012737 (PC)+, 0(PC)+ +;RESTORE COUNTER 
SENDCT: .WORD 1 


011423 , SENDMG +; TYPE “END PASS #" 
167614 SPASS. - (SP) +; SAVE SPASS FOR TYPEOUT 
+;GO TYPE--DECIMAL ASCI!1 WITH SIGN 
011420 » SENULL +; TYPE A NULL CHARACTER 
000042 $GET42: #42, RO +;GET MONITOR ADDRESS 
SDOAGN +;BRANCH IF NO MONITOR 
,; CLEAR THE WORLD 


SENDAD: R PC, (RO) +;GO TO MONITOR 
my ROOM 


000240 
SDORGN: 
000137 a(PC)+ +; RETURN 
SRTNAD: . “et Wy ‘tance 
377 OOO SENULL: . -1,-1.0 ;NULL CHARACTER STRING 
042412 042116 SENDNG: . (18> <129/END PASS #/ 
051501 020123 
011436 000043 
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011604 
000340 


167444 
000110 
011512 


011604 
000064 
000060 
000054 


167376 


011440 
000340 


047520 


000024 
000026 


000024 


000024 


000024 
000026 


042527 
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.SBTTL POWER DOWN AND UP ROUTINES 


Pee 22 ooo > > 9 0 0 0 00208 oo 0 0 80898 08 8 0 0 0 0 0 002090 0 0 0009202200 0 0 0 8 8 0208 0 8 | 
;POWER DOWN ROUTINE 
SPWRON: MOV #SILLUP, D#PWRVEC >; SET FOR FAST UP 
Vv #340, DHPWRVEC+2 7; PRIO: 7 
P) , 3 RO ON STACK 


@SWR ON STACK 
SSAVRE + SAVE SP 
#SPWRUP, DEPURUEC. 3 SET UP VECTOR 
; <2 >; HANG UP 


Fe © oo 0000050000009 00 00 0000000000000 00090 009000000 0000000988 00 00 8 | 
;POWER UP ROUTINE 
SPWRUP: MOV crake , ORPWRVEC ins” FAST DOWN 
;;WAIT LOOP FOR THE TTY 
19: +; WAIT FOR THE INC 
1$ +;0F WORD 
(SP )+, dSHR ;;POP STACK 
(SP) +, R5 ;;POP STACK 
(SP)+,R4 +; POP STACK 
(SP )+,R3 ;;POP STACK 
(SP)+,R2 ;;POP STACK 
(SP)+,R1 48 STACK 
(SP)+,R0 ;POP STACK INTO RO 
8SPWRON, a#PHRVEC 3 SET UP THE POWER DOWN VECTOR 
#340, ODSPWRVEC+2 >> PRIO: 7 
;REPORT THE POWER FAILURE 
SPWRMG: . SPOWER ;;POWER FAIL MESSAGE POINTER 
(PC) +, (SP) ;;RESTART AT START 
SPWRAD: . START ;;RESTART ADDRESS 


SILLUP: +; THE POWER UP SEQUENCE WAS STARTED 
++ BEFORE THE POWER DOWN WAS COMPLETE 

SSAVRE: 0 ;;PUT THE SP HERE 

SPOWER: .ASCIZ <15><12>"POWER"” 


_ EVEN 
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011622 
011626 
011630 
011632 
011634 
011636 


011764 


011770 
011774 
011776 
012002 
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_SBTTL TYPE ROUTINE 


1s MEXEKEAAAAAAAA AAA EATER AAA AAA AAA AAA AES 

+ ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

[THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFIER A LINE FEED. 

+ XNOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
> XNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
_— SFILLC CONTAINS THE CHARACTER TO FILL. AFTER. 


“ICAL. 


SEQ 0089 


105767 167331 

100002 

000000 

0004 30 

010046 

017600 000002 

122767 000001 
000100 


000004 
000774 


000040 


000002 
000011 
000200 


000130 


000056 
167174 


016746 167164 
105366 000001 


000032 
105367 000072 


167344 
167335 


167313 


TYPE 
ME SADR 


7*1) USING ver TRAP INSTRUCTION 


, MESADR 


STPFLG 
1$ 


3$ 
RO, -(SP) 
@2(SP),RO 


RAP TENV, SENV 


+;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


va He A TERMINAL? 

se | 

+;HALT HERE IF NO TERMINAL 
7 LEAVY E 


+ SAVE RO 
;;GET ADDRESS OF ASCIZ STRING 
ayy, IN APT MODE 

O CHECK I ee, 


62$ 0.G 
— SENVM ‘3 SPOOL MESSAGE T 


RO. 61$ 
a anne 


RAP TCSUP, SENUM 
60$ 


(RO)+,-(SP) 
4§ 

(SP )+ 
(SP)+,RO 
#2. (SP) 
RHT. (SP) 
8S 

#CRLF, (SP) 
5$ 


(SP )+ 


SCHARCNT 
2$ 


PC, STYPEC 
SFILLC, (SP)+ 


2$ 
SNULL, - (SP) 


1(SP) 
$ 


6 
PC, $TYPEC 
SCHARCNT 


+;NO.GO CHECK FOR CONSOLE 

+; SETUP MESSAGE AODRESS FOR APT 
+>SPOOL MESSAGE TO APT 

>; MESSAGE ADDRESS 

>;APT CONSOLE — 

+; YES. SKIP TYPE O 

+;PUSH CHARACTER H BE TYPED ONTO STACK 
+-BR IF IT ISN'T THE TERMINATOR 

>; 1F TERMINATOR POP IT OFF THE STACK 
>;RESTORE RO 

;;ADJUST RETURN PC 

RETURN 

>; BRANCH IF <HT> 


>;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
+; TYPE A CR AND LF 


+;>CLEAR CHARACTER COUNT 
++GET NEXT See ge 
++GQ TYPE THIS CHARA 


CHAR. 
+;GET # OF FILLER ———s NEEDED 
+;ANO THE NULL CHA 
*;DOES A NULL NEED. TO BE TYPED? 
++BR IF NO--GO POP THE NULL OFF OF STACK 
+;GO TYPE A NULL 
*+DO0 NOT COUNT xs A COUNT 
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000770 


112716 


000207 


MACY11 30A(1052) 


08: 39 


000040 
000014 
000007 


167110 


000002 
000015 


000014 
000012 


009052 


167102 
000002 


000002 


M 
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TYPE ROUTINE 
BR 


HORIZONTAL TAB 


8$: 
9S: 


STYPEC: 


15: 


INCB 
SCHARCNT: . WORD 


STYPEX: RTS 


7$ 
PROCESSOR 


#' . (SP) 
PC, $TYPEC 
#7, SCHARCNT 
9$ 


(SP) + 

23 

asTPS 
STYPEC 
2(SP), dSTPB 
#CR, 2(SP) 
1$ 
SCHARCNT 
STYPEX 
@LF,2¢(SP) 
STYPEX 
(PC)+ 


0 
PC 


SEQ 0090 
+;LOOP 


+;REPLACE TAB WITH SPACE 
++ TYPE A SPACE 

++ BRANCH IF NOT AT 

+; TAB STOP 

++POP SPACE OFF STACK 

+;+GET NEXT CHARACTER 

++WAIT UNTIL PRINTER IS READY 


+;+LOAD CHAR TO BE TYPED INTO DATA REG 
+> 1S CHARACTER A CARRIAGE RETURN? 
+;BRANCH IF NO 

ce CHARACTER COUNT 


EX 
+> 1S CHARACTER A LINE FEED? 
+;BRANCH IF YES 
+;COUNT THE CHARACTER 
++ CHARACTER COUNT STORAGE 





M 
€ 


MAINDEC-11-DVDVC-B 
CVDVCB. P11 


012104 
012112 


012146 


012150 
012154 
012160 
012164 
012166 
012172 
012174 
012176 
012202 


012204 
012210 


012214 
012220 
012222 
012226 
012232 


012234 


012312 


02-FEB-78 


022767 
001074 


126727 
001456 


104401 
104401 
016746 
104402 
104401 
005046 
005046 
105777 
100375 


117746 
042716 


021627 
001005 
104401 
062706 
000757 


021627 


004767 
021627 


MACY 11 
08: 39 


000176 
167024 
167020 
177600 
000007 
166770 
012631 
012636 
166012 


012647 


166742 


166736 
177600 


000025 


012624 
000006 


000015 
000004 
000002 
000006 
001171 
166643 
000100 


177522 
000060 


a 


167026 


000001 


166662 


000001 
166640 


? 
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.SBTTL TTY INPUT ROUTINE 


CS eee ae aaa eae TS ES SSE SESE SSI SESEESSE ES 
NABL L 


+ REXEREAAAAAE AAAS AAA AAA AAAS AAA ALAA AAA ATA AAA A EEE ES 
*KSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
* ROUTINE 1S ENTERED FROM THE TRAP HANDLER. AND W 
+KSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
+ WHEN OPERATING IN TTY FLAG MODE. 
SCKSHR: CMP SSWREG, SWR ++ 1S THE SOFT-SWR SELECTED? 
BNE 15% +; BRANCH IF NO 
TSTB aSTKS >; CHAR THERE? 
BPL 15% ++ 1F NO, DON'T WAIT AROUND 
MOVB OSTKB. - (SP) ++ SAVE THE CHAR 
BIC ® C177, (SP) +;STRIP-OFF THE ASCII 
CMP #7, (SP)+ ++18 IT A CONTROL G? 
BNE 15$ +;NO, RETURN TO USER 
CMPB SAUTOB, #1 ++ ARE WE RUNNING IN AUTO-MODE? 
BEQ 15% +; BRANCH IF YES 


TYPE - SCNTLG ++ECHO THE CONTROL-G ( G) 
SGTSWR: TYPE , SMSWR ++ TYPE CURRENT CONTENTS 
MOV SWREG, - (SP) ++ SAVE SWREG FOR TYPEOUT 
TYPOC +;GO TYPE--OCTAL — DIGITS) 
TYPE , SMNEW +;PROMPT FOR NEW SWR 


19S: CLR -($?) +;CLEAR COUNTER 
CLR - (SP) +; THE NEW SUR 

7$: TSTB aSTKS ++CHAR THERE? 
BPL 7$ ++ 1F NOT TRY AGAIN 


MOVB @STKB, - (SP) 
BIC # C177, (SP) 


+;PICK UP CHAR 
+7 MAKE 1T 7-BIT ASCII 


(SP), #25 ++1$ IT A CONTROL-U? 
BNE 10% ++BRANCH IF NOT 
TYPE , SCNTLU ++ YES, ECHO CONTROL-U ( U) 
205: ADD #6, SP ++ IGNORE PREVIOUS INPUT 
BR 19% ++LET'S TRY IT AGAIN 


(SP), #15 2-718 IT * «CRD? 
BNE 16$ +;BRANC. ~ NO 


TST 4 (SP) 77 YES, to IT THE FIRST CHAR? 
BEQ 11$ ++BRANCH IF YES 
MOV 2(SP), dSWR ++ SAVE NEW SWR 
11$ ROD #6, SP +; CLEAR UP STACK 
14$ TYPE , SCRLF *7ECHO <CR> AND <LF> 
CMPB SINTAG, #1 +;RE-ENABLE TTY KBD INTERRUPTS? 
BNE 15% +; BRANCH IF NOT 
MOV #100. dS TKS +>RE- ces TTY KBD INTERRUPTS 
15%: RTI 7+ RETUR 
16S: JSR PC, $TYPEC +7 ECHO CHAR 


CMP (SP), #60 +; CHAR < 0? 


SEQ 0091 





o2 


RRRBRBRRBRRAZRRARARBRBRBBBRBBRRRD 
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012316 002420 18$ +; BRANCH IF YES 
000067 >;CHAR > 7? 
18$ >; BRANCH IF YES 
000060 >; STRIP-OFF ASC! 
000002 7:18 THIS THE FIRST CHAR 
+;BRANCH IF YES 
+;NO. SHIFT PRESENT 
a CHAR OVER TO MAKE 
33 ROOM FOR NEW ONE. 
000002 17%: 2(SP) +;KEEP COUNT OF CHAR 
177776 -2(SP), (SP) +;SET IN NEW CHAR 
BR 7$ ;;GET THE NEXT ONE 
001170 18: , SQUES 7; TYPE ?<CR><LF> 
012364 000720 BR 20$ ;;S(IMULATE CONTROL-U 
.DSABL LSB 


f+ MEXEAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ATS 
/&THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


> KCALL 
x ROCHR +; INPUT A SINGLE CHARACTER FROM THE TTY 
4 RETURN HERE +; CHARACTER IS ON THE STACK 

¥ +;WITH PARITY BIT STRIPPED OFF 


, 
, 
; 
; 


012366 011646 SROCHR: MOV ;;PUSH DOWN THE PC 
000004 000002 MOV +; SAVE THE PS 
166542 1$: asTKS +; WAIT FOR 
BP 1$ 7;A CHARACTER 
166536 000004 aSTKB, 4(SP) ;;READ THE TTY 
177600 000004 # €<177>,4(SP) ¢;GET RID OF JUNK IF ANY 
000004 000023 4 (SP), #23 +; 1S tT A CONTROL-S? 
3$ +; BRANCH IF NO 
166510 asTKS ;;WAIT FOR A CHARACTER 
23 ;;LOOP UNTIL ITS THERE 
166504 aSTKB, - (SP) ;;GET CHARACTER 
177600 # C177, (SP) ;;MAKE IT 7-BIT ASCII 
000021 (SP )+, #21 ++ 1S tT A CONTROL-Q? 
23 +7 1F NOT DISCARD iT 
1$ +; YES, RESUME 
000004 000140 : 4(SP), #140 +7 1S tT UPPER CASE? 
4§ ;;BRANCH IF YES 
000004 000175 + alate sitS ITA ale CHAR? 


000040 000004 #40, 4 (SP) 


4S: R QO USER 
+s MAAXKAAAAAAAA AAA A AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
/AHTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


+ XCALL: 

; ROL IN +; INPUT A STRING FROM THE TTY 

RETURN HERE +>;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
+; TERMINATOR WILL BE A BYTE OF ALL O'S 


x 
x 
x 
- alia MOV R3,- (SP) >; SAVE RZ 
$ 


012504 000002 


, 
, 
, 


012506 010346 $ 
012510 012703 012614 1$: 
012514 022703 012624 2 


MOV #STTYIN. RZ +,GET ADDRESS 
CMP ASTTYINGS..R3 +; BUFFER FULL? 
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012520 101405 BLOS 4g >7BR IF YES 
++G0 oe ONE CHARACTER FROM THE TTY 
M (SP) +, (R3) +GET CHARACTER 
000177 : #177, (R3) 1S 1T A RUBOUT 
B 3$ >;SKIP IF NOT 
001170 : , $QUES ++ TYPE A '?' 
BR 1 ++ CLEAR THE BUFFER AND LOOP 
000044 : (R3), 9% ++ECHO THE CHARACTER 
012612 2% 
000015 #15, (R3)+ ++ CHECK FOR RETURN 
23 >;LOOP IF NOT RETURN 
177777 -1(R3) +;CLEAR RETURN (THE 15) 
001172 , OLF +> TYPE A LINE FEED 
(SP)+,R3 >;-RESTORE R3 
(SP), -(SP) >;ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 9000002 4Y(SP), 2(SP) i% FIRST ASCII! CHARACTER ON IT 
012614 O00004 ASTTYIN, 4 CSP) artes 
oo URN 


9S: 0 ++ STORAGE FOR ASCII CHAR. TO TYPE 
0 ++ TERMINATOR 
STTYIN: . 8. +; RESERVE 8 BYTES FOR TTY INPUT 
005015 OOO SCNTLU: . 7 U/7<15><12> 7+ CONTROL “U" 
000012 SCNTLG: . 7 G7<15><12> +-CONTROL "“G" 
020122 SMSWR: .ASCIZ ¢15><12>/SWR = 7 


053505 SMNEW: .ASCIZ 7 NEW = / 


04 
012654 000040 
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.SBTTL APT COMMUNICATIONS ROUTINE 


pe 0 005535555000000005550005535353555900000333333353533377300333) 
012660 112767 000001 000236 SATY1: MOVB #1, SFFLG 3,70 REPORT FATAL ERROR 

112767 000001 000226 SATY3: ;;T0 TYPE A MESSAGE 

J 

112767 000001 000220 SATs: #1, SFFLG ;;TO ONLY REPORT FATAL ERROR 

010046 ; RO. - (SP) ;;PUSH RO ON STACK 

010146 R1,-(SP) ;;PUSH R1 ON STACK 

000206 SMFLG ; + SHOULD TYPE A MESSAGE? 


5$ NOT: 
000001 166270 ~ ieauaiilecmmaa 2 OPERRT ING UNDER APT? 
000100 166261 oe Ag | ats MESSAGES? 


: 
000004 04 (SP), RO +;GET MESSAGE ADDR. 
000002 000004 #2,4(SP) ++BUMP RETURN ADDR. 
166220 oe wae a if LAST XMISSION? 
eet 
166226 RO, SHSGAD ++PUT ADDR IN MAILBOX 
(RO)+ +;F IND END OF MESSAGE 


2$ 
166216 SMSGAD. RO ++SUB START OF MESSAGE 

RO +;GET MESSAGE LNGTH IN WORDS 
166212 RO, $MSGLGT +;PUT LENGTH IN MAILBOX 
000004 166166  iemeeatbiae +; TELL APT TO TAKE MSG. 


000004 000016 : 04 (SP), 4% ++PUT MSG ADDR IN JSR LINKAGE 
000002 000004 +;BUMP RETURN ADDRESS 
164746 7;+PUSH 177776 ON STACK 
176566 PC, $TYPE +;CALL TYPE MACRO 

000000 ; 0 


105767 000062 SFFLG +;SHOULD REPORT FATAL ERROR? 
BE 12$ +; 1F NOT: BR 

166144 SENV ae gy wo APT? 

NOT 


read 


12% 
166116 : SMSGTYPE st ae bai MESSAGE ? 


11$ NOT: 

000004 166110 04 (SP), SFATAL GET ERROR # 
000002 000004 #2,4 (SP) ++BUMP RETURN ADDR. 
166074 SMSGTYPE +; TELL APT TO TAKE ERROR 
000020 +; CLEAR FATAL FLAG 
000013 +;CLEAR LOG FLAG 
000006 +;CLEAR MESSAGE FLAG 

+;POP STACK INTO R1 

fy STACK INTO RO 


ie LAG 
013124 : : FATAL FLAG 
Vv 


APTS1Z2E=200 
APTENV=001 
000100 APTSPOOL=100 
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4110 000040 AP TCSUP=040 
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seal .SBTTL ERROR HANDLER ROUTINE 
11 
4113 +s MERARAAAAAAA AAA AAA AAA AAA AAA AA AAA AAA AAA EEE 
4114 /RTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
4115 > SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
4116 > *AND GO TO MYTYPE ON ERROR 
4117 /XTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE 
4118 > KSW15=1 HALT ON ERROR 
4119 ;*SW13=1 INHIBIT ERROR TYPEOUTS 
4120 > *SW10=1 BELL ON ERROR 
4121 * *SWO9=1 LOOP ON ERROR 
4122 > ¥CALL 
hy 4 i* ERROR N +; ERROR=EMT AND N=ERROR ITEM NUMBER 
4124 
4125 013126 SERROR: 
4126 013126 104407 ++ TEST FOR CHANGE IN SOFT-SWR 
4127 013130 105267 165747 7$: SERFLG >;SET THE ERROR FLAG 
4128 013134 001775 7$ ++DON'T LET THE FLAG GO TO ZERO 
4129 013136 016777 165740 165776 STSTNM. @DISPLAY >; DISPLAY TEST NUMBER AND ERROR FLAG 
4130 013144 032777 002000 165766 #B1T10. dSWR +;BELL ON ERROR? 
4131 013152 001402 1$ +;NO - SKIP 
4132 013154 104401 001164 - $BELL +;RING BELL 
4133 013160 005267 165726 SERTTL +;COUNT THE NUMBER OF ERRORS 
4134 013164 011667 165726 (SP), SERRPC +,GET ADDRESS OF ERROR INSTRUCTION 
4135 013170 162767 O00002 165720 #2, SERRPC 
4136 013176 117767 165714 165710 @SERRPC,SITEMB +; STRIP AND SAVE THE ERROR ITEM CODE 
4137 013204 032777 O20000 165726 #B1T13, ASWR ++SKIP TYPEOUT IF SET 
4138 013212 001004 208 ++ SKIP TYPEOUTS 
013214 004767 175706 PC, MYTYPE +;GO TO USER ERROR ROUTINE 
013220 104401 001171 , SCRLF 
013224 
013224 122767 000001 165762 #APTENV, SENV ;;RUNNING IN APT MODE 
013232 2$ ++NO, SKIP APT ERROR REPORT 
013234 165654 9000004 S$! TEMB, 21% +;SET ITEM NUMBER AS ERROR NUMBER 
013242 177430 PC, SATY4 ,;REPORT FATAL ERROR TO APT 
013246 : 0 
013247 0 
013250 228 >;APT ERROR LOOP 
013252 165662 ASHR +;HALT ON ERROR 
013256 3$ +>+SKIP IF CONTINUE 
013260 +;HALT ON ERROR! 
013262 +; TEST FOR CHANGE IN SOFT-SWR 
013264 001000 165646 ; #B1TO9, dSWR +;LOOP ON ERROR SWITCH SET? 
013272 4§ ++BR IF NO 
013274 165610 SLPERR, (SP) ++FUDGE RETURN FOR LOOPING 
013300 165656 SESCAPE >; CHECK FOR AN ESCAPE ADDRESS 
013304 5% +>BR_ IF NONE 
este 016716 165650 SESCAPE, (SP) ++FUDGE RETURN ADDRESS FOR ESCAPE 
013312 022737 011404 000042 ! #SENDAD, d#42 >ACT-11 AUTO-ACCEPT? 
013320 001001 6$ >;BRANCH IF NO 
013322 000000 >> YES 
013324 : 
013324 000002 >; RETURN 


a ee ee ee ee ee pe ee eee ee ee ee ee ee oe eo 
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_SBTTL SCOPE HANDLER ROUTINE 


+s MEXAREAEAAAAA AAA AAA AAA AAA AAA AAAS 
/XTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

> AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG (DISPLAY<7: 0>) 
> *AND LOAD THE ERROR FLAG (SERFLG) iNTO DISPLAY<15: 08> 


MAINDEC-11-OVDVC-B 
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4165 


MACY11 30A(1052) 
O02-FEB-78 08: 39 


Fe De A 


SEQ 0097 


013326 
013326 
013330 
013336 


013340 


013342 
013346 
013354 
013360 
013364 
013366 
013370 
013374 
013376 
013376 
013404 
013406 
013414 
013416 
013422 
013424 
013432 
013434 


013540 


104407 
032777 
001114 


000416 


013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 


032777 
001404 
127767 
001465 
105767 
001421 
126767 
101015 
032777 
001404 
016767 


116767 


040000 


000004 
013366 
177060 
000004 


000004 


000400 
165526 
165461 
165465 
001000 
165440 


165423 
165474 


004000 
165500 


165374 
165444 


000001 
000052 
165342 
165336 


165602 


000004 


165534 
165466 


165451 
165476 
165434 


165444 


165366 


165356 
165424 


165432 


>THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE 
ON TEST 


> XSW14=1 
> XSW11=1 
; XSWO9=1 
; XSWO8=1 
> XCALL 

;x SCOPE 


SSCOPE: 


CKSWR 


1$: BIT 
8 


NE SOVER 
,RRARASTART OF - FOR THE XOR 


SXTSTR: BR 


1$: 
SSULAD: 


LOOP 


INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7: O> 
+; SCOPE=I10T 


#B1T14, dSWR 


O#ERRVEC, - (SP) 
#55, QBERRVEC 
#177060 
(SP) +, O#ERRVEC 
SSVLAD 

(SP)+, (SP)+ 
(SP) +, O#ERRVEC 


++ TEST FOR CHANGE IN SOFT-SWR 

+;LOOP ON PRESENT TEST? 

+7YES IF SW14=1 

TESTERS#RRS 

++ tf RUNNING ON THE "“XOR" TESTER CHANGE 
+; THIS INSTRUCTION TO A “NOP” (NOP=240) 
+; SAVE THE ar OF THE ERROR VECTOR 


; OR? 
RESTORE THE ERROR VECTOR 
+;GO TO THE NEXT TEST 
+;CLEAR THE STACK AFTER A TIME OUT 
*+RESTORE THE ERROR VECTOR 
P ON THE PRESENT TEST 


7$ LOO 
CODE FOR THE XOR TESTERSG RS 


ao OSHR 
@SWR, STSTNM 
SOVER 

SERFLG 

3$ 

sit acaaa 
#8 1TO9. dSHR 

4 

SLPERR, SLPADR 
SOVER 


SERFLG 
STIMES 


1$ 

#BIT11, QSWR 
1$ 

SPASS 

1$ 


SICNT 
STIMES, SICNT 
SOVER 


#1,S1CNT 
SMXCNT. STIMES 
STSTNM 
STSTNM. STESTN 


+;LOOP ON SPEC. TEST? 
>; BR IF NO 
ON a RIGHT TEST? 
BR IF YES 
HAS AN ERROR OCCURRED? 
>;BR IF NO 
++ MAX. a FOR THIS TEST OCCURRED? 
LOOP ON ERROR? 
+-BR_ IF NO 
+;SET LOOP ADDRESS TO LAST SCOPE 


+>ZERO THE ERROR FLAG 
+; CLEAR THE NUMBER OF ITERAT'ONS TO MAKE 
+-ESCAPE TO THE NEXT TEST 
+; INHIBIT ITERATIONS? 
*;BR IF YES 
++ \F FIRST PASS OF PROGRAM 

INHIBIT |! TERATIONS 
3; INCREMENT ITERATION COUNT 
+;CHECK THE NUMBER OF ITERATIONS MADE 
+;>BR IF MORE ITERATION REQUIRED 
>;REINITIALIZE THE ITERATION COUNTER 
+,SET NUMBER OF ITERATIONS TO DO 
++COUNT TEST NUMBERS 
;;SET TEST NUMBER IN APT MAILBOX 


SWR<7: O> 





ame oe 14 1D we | 1 1 1 11 11s. 
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013546 011667 165334 (SP), SLPADR >; SAVE SCOPE LOOP ADDRESS 
011667 165332 (SP), SLPERR ++ SAVE ERROR LOOP ADDRESS 
005067 165400 C SESCAPE +;>CLEAR THE ESCAPE FROM ERROR ADDRESS 
112767 000001 165325 #1, SERMAX +;>ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
016777 165306 165344 SOVER: STSTNM. DISPLAY »; DISPLAY TEST NUMBER 
016716 165304 SLPADR. (SP) +;FUDGE RETURN ADDRESS 
000002 7>FIXES PS 


RTI 
013604 003720 $MXCNT: 2000. >,MAX. NUMBER OF ITERATIONS 


ey ote cw 1 1) 1) iw 1 1 ieee. 
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mt 54 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
y 
4231 Fe 2 2 22 oo 2 oo 00 0 09 9 9 0000909 0099000090 00995 0990509009990 8 09599 008 8 1 
4232 > THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
4233 + SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
4234 ;XNUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
42235 /XBEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
4236 ; ¥REPLACED WITH SPACES 
4237 > XCALL: 
4238 3% MOV NUM, - (SP) ;;PUT THE BINARY NUMBER ON THE STACK 
ne 7& TYPOS >;GO TO THE ROUTINE 
424 
4241 013606 STYPDS: 
4242 013606 010046 MOV RO. - (SP) +;PUSH RO ON STACK 
4243 013610 010146 MOV R1.-(SP) ++>PUSH R1 ON STACK 
4244 013612 010246 MOV R2,-(SP) ++PUSH R2 ON STACK 
4245 013614 010346 MOV R3,- (SP) +;>PUSH R3 ON STACK 
4246 013616 010546 MOV RS, -(SP) +;PUSH RS ON STACK 
4247 013620 012746 020200 MOV #20200, - (SP) ++SET BLANK SWITCH AND SIGN 
4248 013624 016605 000020 MOV 20(SP),R5 +;GET THE INPUT NUMBER 
4249 013630 100004 BPL 1$ +>BR IF INPUT IS POS. 
4250 013632 005405 NEG RS +;MAKE THE BINARY NUMBER POS. 
4251 013634 112766 000055 000001 MOVB #'-- 1(SP) +;MAKE THE ASCII NUMBER NEG. 
4252 013642 005000 1$: CLR RO +;Z2ERO THE CONSTANTS INDEX 
4253 013644 012703 014022 MOV #SDBLK, R3 ++ SETUP THE OUTPUT POINTER 
4254 013650 112723 000040 MOVB #' , (R3)+ +;SET THE FIRST CHARACTER TO A BLANK 
4255 013654 005002 23: CLR R2 »;CLEAR THE BCD NUMBER 
4256 013656 016001 014012 MOV SOTBL(RO).R1 »+GET THE CONSTANT 
4257 013662 160105 35: SUB R1,R5 +>FORM THIS BCD DIGIT 
4258 013664 002402 BLT 4S a4 1F DONE 
4259 013666 005202 INC R2 > INCREASE THE BCD DIGIT BY 1 
4260 013670 000774 BR 3$ 
4261 013672 060105 4S: ADD R1,R5 +;ADD BACK THE CONSTANT 
4262 013674 005702 TST R2 +,CHECK IF BCD DIGIT=0 
4263 013676 001002 BNE 53 >;FALL THROUGH IF 0 
4264 013700 105716 TSTB (SP) >+STILL DOING LEADING 0'S? 
4265 013702 100407 BMI 7$ >>BR IF YES 
4266 013704 106316 5S: ASLB (SP) ;+ MSO? 
4267 013706 103003 BCC 6$ >>BR IF NO 
4268 013710 116663 000001 177777 MOVB 1(SP),-1(R3) ++ YES--SET THE SIGN 
4269 013716 052702 000060 6S: BIS #'0O,R2 ++ MAKE THE BCD DIGIT ASCII 
4270 013722 052702 000040 74: BIS #' ,R2 +;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
4271 013726 110223 MOVB R2, (R3)+ +;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
4272 013730 605720 TST (RO)+ +; JUST INCREMENTING 
4273 013732 020027 000010 CMP RO. #10 +, CHECK THE TABLE INDEX 
4274 013736 002746 BLT 2$ +;GO DO THE NEXT DIGIT 
4275 013740 003002 BGT 8$ ,-GO TO EXIT 
4276 013742 010502 MOV R5,R2 +;GET THE LSO 
4277 013744 000764 BR 6$ ‘3a CHANGE TO ASC! 
4278 013746 105726 8s: TSTB (SP )+ >WAS THE LSO THE FIRST NON-ZERO? 
4279 013750 100003 BPL 9$ ;BR IF NO 
4280 013752 116663 177777 177776 MOVB -1(SP),-2(R3) : SYES+~SET THE SIGN FOR TYPING 
4281 013760 105013 95: CLRB (R3) > SET THE TERMINATOR 
4282 013762 012605 MOV (SP)+,R5 :: POP STACK INTO RS 
4283 013764 012603 MOV (SP)+,R3 >;POP STACK INTO R3 


4284 013766 012602 MOV (SP)+,R2 +;POP STACK INTO R2 
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013770 012601 (SP)+,R1 ;;POP STACK INTO R1 
013772 012600 (SP )+,R0 ;;POP STACK INTO RO 
013774 104401 014022 , $OBLK ;;NOW TYPE THE NUMBER 
014000 016666 000002 000004 2(SP),4 (SP) ;;ADJUST THE STACK 
014006 (SP )+, (SP) 

014010 ;;RETURN TO USER 
014012 SOTBL: 

014014 

014016 

014020 

014022 O00004 SDBLK: 
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014032 
014036 
014044 
014050 
014054 
014056 
014064 
014072 
014100 
014102 
014104 
014106 
014112 
014114 
014120 
014124 
014130 
014134 
014136 
014140 
014142 
014144 
014146 
014150 
014152 
014154 
014160 
014162 
014166 
014170 
014172 


MACY 11 a, 


O2-FEB-78 08: 39 


017646 


001403 


000000 
000001 
000207 
000002 


000001 


000006 
000005 


000145 
000006 
000132 


000125 
000012 


000076 
177770 


000211 


000171 
000165 
000154 


K 
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.SBTTL BINARY TO OCTAL (ASCII) 


AND TYPE 


sald Bautiad 42 UAE 40 camwee & id -att Aiaeay ieeeee te © cas 


*>KTHIS ROUTINE IS USED TO CHANGE A 
> KOCTAL (ASCI1) NUMBER AND TYPE 


16-B!1T BINARY NUMBER TO A 6-DIGIT 


\T. 
* RSTYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


, XCALL 

ix MOV NUM. - (SP) 
ie TYPOS 

ot BYTE N 

ix BYTE M 

Me 

| 

jx 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
37 Ne1 - . FOR NUMBER OF DIGITS TO TYPE 


,-M=1 0 
++1=TYPE LEADING ZEROS 
+; 0=SUPPRESS LEADING ZEROS 


; XSTYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


sXSTYPOS OR STYPOC 


+;NUMBER TO BE TYPED 
+-CALL FOR TYPEOUT 


++NUMBER TO BE TYPED 
+;CALL FOR TYPEOUT 


+;PICKUP THE MODE 

+;LOAD ZERO FILL SWITCH 
,+NUMBER OF DIGITS TO TYPE 
+; ADJUST RETURN ADDRESS 


7;SET THE ZERO FILL SWITCH 


;;SET FOR SIX(6) DIGITS 
;;SET THE ITERATION COUNT 
+; SAVE R3 

7; SAVE RY 

+; SAVE RS 


+;GET THE NUMBER OF DIGITS TO TYPE 


>;SUBTRACT IT FOR MAX. ALLOWED 
+;SAVE IT FOR USE 

+;GET THE ZERO FILL SWITCH 
7;PICKUP THE INPUT NUMBER 
7;CLEAR THE OUTPUT WORD 
>;ROTATE MSB INTO "“C" 

+;GO DO MSB 

>;FORM THIS DIGIT 


>;GET LSB OF THIS DIGIT 
+; TYPE THIS DIGIT? 

7;>BR IF NO 

>;GET RIO OF JUNK 

;; TEST FOR O 


+ XCALL: 
oe | MOV NUM, - (SP) 
f TYPON 
| EST YPOC-~-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7x MOV NUM, - (SP) 
+x TYPOC 
STYPOS: MOV a(SP),-(SP) 
MOVB 1(SP),S$0F ILL 
MOVB (SP )+, SOMODE +1 
ADD #2. (SP) 
BR STYPON 
STYPOC: MOVB #1, S$0F ILL 
MOVB #6, SOMODE +1 
STYPON: MOVB #5, SOCNT 
MOV R4,-(SP) 
MOV RS, -(SP) 
MOVB SOMODE +1, R4 
NEG RY 
ADD #6,R4 
MOVB R4, SOMODE 
MOVB SOF ILL. R4Y 
MOV 12(SP),R5 
CLR R3 
19: ROL RS 
BR 33 
25: ROL RS 
ROL RS 
ROL R5 
MOV RS,R3 
35: ROL R3 
DECB SOMODE 
BPL 7$ 
BIC #177770,R3 
BNE 4S 
TST RY 


+; SUPPRESS THIS 0? 
>;BR IF YES 


SEQ 0101 
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000000 
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000060 


000032 


000002 000004 
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102 
BINARY TO OCTAL (ASCII) AND TYPE 


4S: 
5S: 


75: 


8$: 


SOCNT: 
SOF ILL: . 
SOMODE: . WORD 


2 

(SP)+,R5 
(SP )+,R4 
(SP)+,R3 
Z2(SP),4(SP) 
(SP )+, (SP) 


;;DON'T SUPPRESS ANYMORE O'S 
;;MAKE THIS DIGIT ASCII 

;;MAKE ASCII IF NOT ALREADY 

+, SAVE FOR TYPING 

;;GO TYPE THIS DIGIT 

+;COUNT BY 1 

7;>BR IF MORE TO DO 

;;BR IF DONE 

++ INSURE LAST yas + gl A BLANK 


ORE R3 
+>SET THE STACK FOR RETURNING 


++RETURN 

+; STORAGE FOR ASCII! DIGIT 

+; TERMINATOR FOR TYPE ROUTINE 
+,OCTAL DIGIT COUNTER 

7; ZERO FILL SWITCH 

>;NUMBER OF DIGITS TO TYPE 


SEQ 0102 
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CVDVCB. P11 02-FEB-78 08: 39 TRAP DECODER SEQ 0103 

mt .SBTTL TRAP DECODER 

4 
4375 Fe oo 2 $9 0299900005 00 60 8 0 > Ee 0 0 0 0 000090999950 505 9050090000000 0005 
4376 >KTHIS ROUTINE WILL PICKUP 14€ LOWER BYTE OF THE “TRAP”™ INSTRUCTION 
4377 ;XAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
4378 >XOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
my 4 ;%GO TO THAT ROUTINE. 
4 
4381 014260 010046 STRAP: MOV RO. - (SP) +; SAVE RO 
4382 014262 016600 000002 MOV 2(SP),RO +;GET TRAP ADDRESS 
4383 014266 005740 TST - (RO) +;BACKUP BY 2 
4384 014270 111000 MOVB (RO),RO +;GET RIGHT BYTE OF TRAP 
4385 014272 006300 ASL RO >;POSITION FOR INDEXING 
4386 014274 016000 014314 MOV STRPAD(RO).RO ;: 1h EX TO TABLE 
4387 014300 000200 RTS RO +>Gu TO ROUTINE 
4 388 
4389 ~ 
aioe +; THIS 1S USE TO HANDLE THE “GETPRI" MACRO 

1 
4392 014302 011646 STRAP2: NOV (SP), -(SP) +;MOVE THE PC DOWN 
4393 014304 016666 000004 9000002 MOV 4Y(SP),2(SP) >;>MOVE THE PSW DOWN 
my 014312 000002 RTI 7;RESTORE THE PSW 
| _SBTTL TRAP TABLE 
4398 +XTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
4399 ;¥BY THE "TRAP" INSTRUCTION 
4400 
4401 ; ROUTINE 
4Y4Q2 Sie aan ae 
4403 014314 014302 STRPAD: .WORD S$TRAPZ 
4404 014316 011622 STYPE ++ CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
4405 014320 014056 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
4406 014322 014032 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
44YO7 014324 014072 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
ae 014326 013606 STYPDS ;;CALL=TYPOS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
nh 014330 012154 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
4412 014332 012104 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
4413 014334 012366 SROCHR ;;CALL=RDOCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
| 014336 coo — SROLIN ;;CALL=RDLIN TRAP +11(104411) TTY TYPEIN STRING ROUTINE 

_ EN 


rr 3) 
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997 


971 
3650% 3664% 3687 36948 


36998 


1982 2318 2492 3671 3859 4066 4108% 4142 
41098 


970 
995 


BITMAS 011102 3635% 348k 3656 3659 36928 
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000001 
824 845 


843 


818 


1247 


44128 
1995 


CONSOL 011121 1828 2757 3039 3269 3612% 3662% 
CONVEC 011116 
CR 0 

1098 


34898 
4129% 


1121 1126 1180 3361 3739 
1020 1022 
2648 3073 


010166 2767k 2829% 3278k 8 =63310% 3321k 3333 


007556 31428 3218% 
= 100000 2 
~ 004026 18128 
ERRVEC= 000004 1063 1064% 4187k 4189k 4192% 
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000004 


040000 


000024 
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18118 


1391 


104 3k 


2665 


2516 


3795% 


18138 
34788 


1099 
4408 


2774 


2650 


3796% 


2413% 


2922 


3078 


3805% 


3515 


2595 


2415x 


2084 


3811% 


SEQ 0106 


3737 3743 


3517 


2656% 35968 


1866 1913 
2282 2333 


24718 


3823% 3824% 
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RATES 005624 24448 
RBUF 001262 2834 


RCSR 001260 S 1882 
2 2 . 2726% 
3228% 
RCVRAC= 004000 
RCVRDO= 000200 2051 2972 
RCVRIE= 000100 1524 3138 
000001 


4Y4138 


31868 

3407 

3420 34 76% 

3199% 3203 3211 3237% 


177777 1757 1800 1853 1927 2010 2019 2523 


2820 3428 
SETCLR= 000006 
SPECIA 010726 
STACK = 001100 
START 001336 3828 
STKLMT= 177774 
SWR 001140 1054x 1069x% 1083 3816% 3925 3962% 4130 4137 
4203 4210 
SWREG 000176 
SWO = 000001 
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SWOO = 000001 696% 706 

SWO1 = 000002 695% 705 

SWO2 = 000004 694% 704 

SWO3 = 000010 693% 703 

SWO4 = 000020 6928 702 

SWOS = 000040 6918 701 

SWO6 = 000100 6908 700 

SWO7 = 000200 6898 699 

SWO8 = 000400 688% 698 

SWO9 = 001000 687% 697 

SH1 = 000002 705% 

SW10 = 002000 6868 

SW11 = 004090 6858 

SW12 = 010000 684% 

SW13 = 020000 683% 

SW14 = 040000 682% 

$wi5 = 100000 6818 

SW2 = OG0004 7048 

SW3 = 000010 7038 

SW4 = 000020 702% 

SWS = 000040 7018 

SW6 = 000100 7008 

SW7 = 000200 699% 

SW8 = 000400 698% 

SW9 = 001000 697% 

TBITVE= 000014 739% 

TBUF 001270 10238 1132k 1133k 1720k 1748k 1846% 1921% 2003k 2158k 2168% 2250% 2353 2672% 
2816% 2966k 3163k 3287% 

TCSR 001264 10218 1126k 1127k 1231 1244*k 1247 1261* 1264 1278k 1283 1319 1332k 1335 


1349k 1352 1366k 1371 1401 W4i4x 861417 1431k 861434 1448x 1453 1630*% 1663 
1727 1753 1769 1839% 1866k% 1913k% 1934% 1993k 2031% 2060* 2082k 2104% 2146% 
2187k 2209k% 2233k 2264% 2282k 2333k 2432k 2524 2532k 2542k 2582k 2659k 2703% 
2731k 2770k% 2802 2854x 2868k 2908% 2950 3103*% 3107k 3124* 3136k 3170% 3281% 


32844 
TCSRH!| 001266 1022 1129% 1130k 2347k 2428% 
TOATAO= 000001 845% 
TOATA1= 000002 844% 
TOATAZ= OO0004 843% 
TOATA3= 000010 842% 
TOATAY= 000020 841% 
TOATAS= 000040 840# 
TOATA6= 000100 839% 
TOATA7= 000200 8388 
TIME = Q000000 3539% 3550 
TIMER 010314 1730 1772 1857 1931 2527 2682 2805 2824 2953 2974 3295 33828 
TIMSAV 010462 S4YO9kK = 3445 3456% 34778 
TKVEC = 000060 7468 
TPVEC = 000064 7478 
TRAN 007564 3082 31518 
TRAPVE= 000034 745# 1040% 1041% 
TRTVEC= Q000014 7408 
TRUE = 000001 1305 1591 1693 1828 1902 1971 2128 2637 2757 3039 3269 34038 3438 
3443 3466 3662 3678 
TST1 002252 11448 
TST10 «003476 1613 16528 


TST11 003536 16888 


MAINDEC-11-0VD 
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004032 


104401 


104402 
104404 
104403 
011110 
010572 
007563 
000002 
020000 
000160 


000200 
007624 
007720 
001000 
KKKKKK 
012704 
012660 
012666 
012676 
001134 
001250 
001122 
001126 
001164 
177777 
012100 
012104 
001100 
000000 
012631 
012624 
001222 
001171 
014022 
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1810 18218 


2036 


3907% 
1038 


3747 
42958 


3880 
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30328 


39128 


1044 1045 


3915 3964 


3729 
3983 


3735 
4032 


3714 
3953 


3720 
3964 


2532 2542 2582 3107 


1046 


4048 4140 


SEQ 0109 


3741 
4035 


3136 
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SDEVCT 001204 9628 3637k 3689% 

SDEVMN 001252 9988 1094 3656 

SDOAGN 011414 3769 3778 37848 

SOTBL 014012 4256 42918 

SENDAD 011404 882 1075 37808 4160 

SENDCT 011352 1044 37718 

SENDMG 011423 3773 37888 

SENULL 011420 3776 37878 

SENV 001214 967% 1081 1217 1695 1982 2318 2492 3671 3859 4066 4090 4142 

SENVM 001215 968% 1067 3861 3866 4068 

SEOP 011316 3627 3761% 

SEOPCT 011344 1044% 37688 2772 

SERFLG 001103 919% 4127k 4165 4170 4199 4201 4207k 4229 

SERMAX 001115 9258 1047k 4201 4224k 4229 

SERRFL= 000000 11048 1105 11068 1107 11098 11138 1114 11168 #81117 11188 1119 11218 1122 
11238 1125 11268 1128 11298 1131 11328 81134 1135# 1136 11488 1149 11518 
11528 11538 11548 1155 1156 11578 1158 1161# 1162 11648 1165 11788 81179 
11808 1182 11888 11898 11918 1192% 1193 12218 1222 12288 1229 12428 1243 
12448 1245 12588 1259 1261# 1262 12758 1276 12788 1279 13098 1310 1316% 


32848 32878 3288 32908 33108 3311 33218 22 34078 3408 34098 3410 
3411# 3412 34238 = 3424 3428% 3429 3438% 3439 34518 456% 3457 34698 3470 
34738 3475 3504% 35068 35128 3513 3515 3519 35208 21 35228 


3 35 355 
35938 3594 36108 3611 3612% 3613 3622% 3623 3627# 36318 3632 3635% 3636 
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$F SAND= 


SF SBAD= 


SF SBLA= 
$F SCAS= 
SF SDEC= 
$F $GO0= 


013126 


000310 


000401 


000170 
000150 
000220 
000400 


000110 
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3638 
36628 
4125% 
3733 


SEQ O111 


3652% 
3690 
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34 34 3440 3466 3471 3616 3619 3624 3633 3643 3654 3659 3671 3674 


SFSINC= 000210 1# 2336 2418 2788 2863 2935 3012 3512 3524 3552 3560 3568 3571 
S$FSLOO= 000200 18 =©1707 1804 1807 3417 3443 3458 

SFSNAM= 000160 1% 

SFSNO = 000403 18 §=©1094 1169 1215 1217 1231 1247 1264 1283 1303 1319 1335 1352 


SFSOP = 000320 18 1096 1171 1217 1233 1249 1266 1285 1305 1321 1337 1354 1373 


3673 3676 

SFSRTN= 000300 1# 3383 3482 3490 3532 3539 3577 3599 3705 3713 3749 

SFSSEL= 000140 1% 

SFSUNT= 000130 18 =§=6.1159 1183 2005 2019 3115 3117 3614 3656 

SFSWHI= 000120 18 §=§=©1093 1094 1101 1217 1305 1695 1828 1902 1973 2046 2047 2072 
2128 2308 2360 2361 2381 2395 2637 2757 2897 3039 3260 

SFSYES= 000402 18 =§=©61094 1169 1215 1217 1231 1247 1264 1283 1303 1305 1319 1335 


3671 3674 
S$GDADR 001120 927% 
$GDDAT 001124 929% 
SGET42 011374 37778 
SGTSWR 012154 39378 4410 
$HD = 000000 627 
SHIBTS 001000 903% 
SICNT 001104 9208 4214x 4215 4217k 4228 
SIFLEV= 177777 18 8611698 11758 12158 12248 12318 12378 12478 12538 12648 12708 12838 12898 
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SILLUP 011604 38308 

SINTAG 001135 

$'1SKO = 000001 12318 12478 12648 
1 1 


$ISK1 = 000001 2068 
36718 
$ISK2 = 060001 
SITEMB 001114 
SLF 001172 
SLFLG 013123 
SLOCTA= 177777 


foe 


SEQ 0113 
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SLPADR 001106 
SLPERR 001110 1363k 1398% 1412% 
1875x 1915*% 2151*% 


SLSTCN= 177777 


$LSTIN= 000000 
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n 9 
MAINDEC-11-DVDVC-B MACY11 30A(1052) O2- €8-78 08:40 PAGE 117 
CVOUCB. P11 02-FEB-78 08: 39 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0116 


SLSTST= 177777 18 ©1093 1094 1096 1101 1102 1159 1160 1169 1171 1175 1183 1215 
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SLSTTA= 000000 


S$NESTL= 


001226 
001232 
001236 
001242 
001174 


001224 


177777 
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4O99k 
4077 
4O80x 


41038 


4092 


4O096x 


11698 
13034 
14238 


1146 
2301 


1175% 


3643 3644 

3684 3705 
1160 1175 
1289 1290 
1378 1407 
1516 1517 
1616 1617 
1707 1708 
1799 1802 
1904 1905 
1989 2005 
2068 2069 
2136 2143 
2310 2311 

2372 2378 
2419 2420 
2602 2639 
2764 2765 
2865 2875 
2962 2963 
3116 3121 

3262 3263 
3326 3327 
3430 3431 

3490 3514 

3555 3556 
3579 3598 
3680 3681 

3751 

1212 1300 

2487 2633 

11838 12158 
13198 13258 
14408 14538 


1389 
2753 


12248 
13358 
14598 


1471 
2893 


1552 
3034 


12378 
13528 
14838 


12478 
13588 
14938 


SEQ 0117 


1654 
3859 


12538 
13718 
14998 
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SNSKO = 


SNSK1 = 


SROCHR 
SRODE C= 


060300 


000110 


000110 


000110 
001154 
000001 


014254 
014256 
013570 
001202 
001006 
011612 
011600 
011440 
011574 
011512 
001170 
012366 
KKKEEK OU 
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15358 


4032 


your 


B 10 
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4165 


4212 


15988 
1707% 


4229 


16058 


1649% 
26258 


SEQ 0118 
1615# 


1685 
27478 
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012506 4O24% 4414 
axaKe% U 
000010 
SRT 011416 
SR29 = KEKKKK 
SSAVLE= 177777 1 23398 23818 23828 27918  2795% 
35598 35678 
SSAVRE= xxxKKE 
011610 
013326 
000137 1045 


000234 2343 


35638 
177777 
013534 
000204 
167400 


001216 
SSWRMK= 000000 
STAGLE= 177777 


STAGNU= 000252 


19 19 19 
19768 19848 20068 2008 20098 20148 
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20278 20478 204 9% 20538 20568 20798 
2 2 22 


STEMP = 000300 





E 10 
MAINDEC-11-OVDUC-B MACY11 30A(1052) O2-FEB-78 08:40 PAGE 122 
CVOVCB. P11 02-FEB-78 O08: 39 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0121 


30838 30888 
31078 31118 
31568 31618 
31988 32128 
32648 32728 
32888 33118 
34078 34108 
34 38% 344 38 


STESTN 001200 
STIMES 001160 


001146 
001144 
000026 


001152 
001157 
001150 
014260 
014302 
000012 
014314 
000245 


$TSK1 = 000246 


3519% 
3559% 36188 3645% 
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S$TSK2 = 000247 16078 1610 1611% 1615 17368 =§=©1740 17558 1762 1763# 1782 17868 1798 17998 
1802 20538 2070 2361% 2381 23878 2390 23918 2410 2809% 2812 28288 2831 
2851# 2861 2957% 2962 29788 2985 3002# 3009 33208 3323 34228 3426 34278 
3430 34368 3440 3562# 3564 35678 3569 3621% 3625 3626% 3633 36768 3680 

S$TSK3 = 000234 hy y 1780 17898 1795 2056# 2068 23638 2381 23978 2400 2401# 2408 35678 

STSK4 = 000124 23668 2371 23728 2378 

STSTM 001004 905% 

STSTNM 001102 918% 3763% 4129 4165 4.70 4197 4219% 4220 4225 4229 

STTYIN 012614 4025 4026 4043 4O47% 

STYPBN= Xk%xxx U 4409 

STYPDS 013606 42418 4408 

STYPE 011622 3853# 4085 4396 44O4 

STYPEC 012034 3883 3890 3897 39028 3903 3969 

STYPEX 012102 3908 3910 39138 

STYPOC 014056 43268 4405 

STYPON 014072 4325 4328% 4407 

STYPOS 014032 43218 4406 

SUNIT 001206 963% 

SUNITM 001010 907% 

SUSWR 001220 9708 1215 1303 1598 1605 1826 1900 1973 2126 2137 2306 2308 2421 
2635 2755 2895 2897 3037 3258 3260 3315 3506 

SVECT1 001244 995% 3641 

SVECT2 001246 996% 

SXTSTR 013340 41844 

SYESNO= 000001 11248 811258 11278 11288 11308 11318 11338 11348 11788 11798 11818 11828 11908 


11918 12448 12458 1261% 12628 12788 1279% 13328 13338 13498 13508 13668 13678 
14148 14158 14318 14328 14488 14498 14908 14918 15078 1508  1524% 15258 16308 
16318 18398 18408 1866 18678 19138 19148 19348 19358 19938  1994% 20158 20168 
2031% 20328 20608  2061% 20828 20838 2104 21058 21468 21478 =(2187% 21888 22098 
22108 = 22338 22348 22648 22658 22828 22838 23338 23348 23398 23408 23748 23758 
23768 =6©23778 «=6024228 = 24258 = 24268 = 24278) = 24328 = 24338 86025108 =6925118 25328 25338 25428 
25438 25828 25838 26118  2612% 26598 26608 26628 26638 26868 26878 27038 27048 
27268 «=627278 «= 27318 =. 2732% = 27408 = 27418 = 27708 )3=— 27718 = 27918 §=927928 )3=— 28108 =6928118 28298 
28308 28438 28448 28458 28468  2854% 28558 28688  2869% 29088 29098 29198 29208 
29388 29398 29948 29958 29968 29978 30188 30198 31038 31048 31978 31088 31108 
31118 = 31248 = =031258 = 31368 = 31378 = 3138H = =—31398 = =—3156R 86031578) =—31608 =—t161# = =6031708% =—31718 
31918 31928 3195% 31968 31998 32008 32188 32198 32288 32298 32818 32828 32848 
32858 33108 33118 33218 33228 34568 34578 35078 35108 , 35158 25168 35208 35218 
35228 = 35238 35278 35288 35558 35568 35638 3564 35938 35948 36488  3649%  3650% 


SSARGC= 000000 33838 34908 35398 35998 37138 

S$BYTE= 000403 1094# 11698 12158 12178 12318 12478 12648 12838 13038 13058 13198 13358 13528 
13718 14018 14178 14348 1453% 14778 14938 15108 15298 15608 15918 15988 16058 
16258 16638 16938 1695 17538 17848 17878 18268 18288 18828 19008 19028 19538 
1971# 19738 19828 20078 20258 20478 20518 20548 20778 20998 21268 21288 21378 
2182 22038 2227# 2259% 2277%# 23068 23088 23188 23618 23648 23858 23938 23958 
24348 24928 25538 25578 25958 26358 26378 26988 27058 27558 27578  2849% 28708 
28778 =©2895% 28978 3000 30378 30398 31278 31668 32038 32078  3224%  3258% 32608 
32698 33068 33158 33188 33338 33408 34208  3434H  3466% 36168  3619% 26598 36718 


36748 
$$0ST = 000067 24228 35078 
$$FLAG= 000001 1093#  1094% 1096 11698 1171 1175@ 1215 12178 1220 12248 12318 1233 1237% 


12478 1249 12538 12648 1266 1270 12838 1285 12898 13038 13058 1308 13128 
1319% 1321 13258 13358 1337 1341% 13528 1354 13588 13718 1373 13778 §=©61401% 
1403 14078 14178 1419 14238 14348 1436 14408 14538 1455 14598 14778 1479 
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14838 14938 1495 14998 1510 1512 15168 15298 1531 15358 15608 1562 15714 
15918 1593 15988 1600 1605# 1607 16158 16178 16198 1625% 1627 16428 1663%# 
1665 16748 16938 16958 1698 1702@ 17358 17408 17538 1755 17758 17808 17828 
17848 1786 17878 1789 17958 1802 1826 18288 1831 18358 1862 18708 1882% 
1884 18888 1900 19028 1905 1909 19378 19428 19538 1955 19598 19718 19738 


SSFROM= O00000 11098 17258 17678 18528 19268 21618 21718 22538 25228 25468 25908 2677%  2689% 
27808 28008 28198 29288 29488  2969% 30508 32908 3451% 36278 

$$GET4= 000000 37798 

S$$LO0C = 011060 10958 1096 11708 §=1171 11848 1185 12188 1219 1232# 1233 12488 1249 12658 


2363 23658 2386% 2387 23948 2395 23968 2397 24358 2436 24938 2494 
25548 2555 2558% 2 2596% 2597 2638% 26 26998 2700 2706 2707 27588 
2759 2808% 2809 28278 2828 2850# 2851 28718 2 28788 2879 28988 2899 


36758 3676 

$$LOCN= 000000 33838 3485 34908 3534 3539% 3579 35998 3707 37138 3751 

SSRETU= 000000 33838 469% 34738 3483 3490% 3533 35398 3578 3599% 3706 37138 3750 

S$S$RTN1= 000250 33838 3469 3482 34908 3529 3532 3539% 3577 3599% 3691 3705 3713% 3749 

S$S$RTN2= 000251 33838 3474 3484 34908 3533 3539% 3578 35998 3706 37138 3750 

$$SRC = 000027 24228 35078 

$$TO = 000000 11098 1110 1725@ §=61731 17678 §=1773 18528 1858 19268 1932 21618 2164 21718 
2174 22538 2256 2522% 2528 25468 2549 25908 2593 26778 2683 26898 2692 
27808 2781 2782 2800# 2806 28198 2825 29288 2929 2930 29488 2954 2969% 
2975 30508 3051 3052 32908 3296 34518 3454 36278 3628 

SOFILL 014255 4322k 43260k 4336 43718 

$1 001712 10938 1101 

$10 002534 1248 12538 

$100 004612 2055 20688 

$101 004644 2078 20898 

$102 004670 2100 21088 


$103 004732 2127 21308 
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007316 
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21358 
21438 
21968 
22198 
12708 
22418 
22748 
22878 
23108 
23158 
23248 
23408 
2418 

1289% 
24198 
2381 

23828 
23718 
23788 
23908 
24108 
2396 

1307% 
24088 
24408 
24988 
25728 
25648 


3009% 


CROSS REFERENCE TABLE -- USER SYMBOLS 


SEQ 0124 
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007364 30418 


011070 
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011070 36808 
14838 


= 014340 8 88 8818 883% 8858 8868 892 8938 8958 8978 915% 952 
10978 10998 1170 1171 1184 1185 1218 
1266 1284 1285 1306 1307 1320 1321 


1337 1353 1354 1372 1373 1402 1403 1418 1419 1435 1436 1454 
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SASTA= kekexKaK U 
$x = 001000 892% 897 





” L 10 
MAINDEC-11-DvDVC-8 MACY11 30A(1052) O2-FEB-78 08:40 PAGE 130 
CV¥DVCB. P11 02-FEB-78 08: 39 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0128 
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3686 3688 

LOCAL 18 : 

LOOP 18 1706 , 3416 

MSG 11388 1140 1202 1204 14668 1468 16838 1685 1816# 1818 19628 1964 22938 2295 24778 
479 26258 2627 27478 2749 3028% 3030 32478 3249 


MUL T 
NEWTST 749% = =61138 1202 1295 1384 1466 1547 1580 1649 1683 1816 1892 1962 2118 2293 
2477 2625 2747 2888 3028 3247 3352 


NOLOCA 18 
POINTE 18 
Pe inte 749% §=1193 2614 2743 3573 3816 3817 4100 4101 4282 
18 
PUSH 749% =§=61186 2607 2736 3546 3797 3803 4061 4063 4084 4241 
REPEAT 18 =§=6©1158 2004 3114 3613 
REPORT 18 7498 . 
RE TURN 18 3468 3472 3528 3690 
ROUTIN 18 3381 3488 3537 3597 3711 
SAVR14 18 


SCOPE 644# 1144 1210 1298 1387 1469 1550 1583 1652 1688 1821 1895 1967 2121 2299 
2485 2631 2751 2891 3032 3254 3355 3762 


SETUP 749% =§=©1027 
SETVEC 18 §©1150 2512 2646 
SKIP 749% = 1222 1310 1613 1700 


SLASH 749% 

SPACE 7498 

STARS 7498 765 767 785 787 805 807 827 829 848 864 878 889 891 898 
911 952 955 1138 1143 1197 1199 1202 1209 1294 1295 1297 1383 1384 1386 


STRUCT 18 


TYPTXT 749% =§©1096 1097 1098 3357 3363 3369 3714 3720 3729 3735 3741 


UNTILB 1% 

WAI TMS 18 2160 2170 2252 2545 ‘> 2688 3450 

WHILE 1% 1092 2045 2359 

WHILEB 1% 

SADDON 1# 1093 1094 1096 1101 1159 1171 1220 1247 1249 


1160 1169 1215 1231 1233 
1264 1266 1283 1285 1303 1308 1319 1321 1335 1337 1352 1354 1371 1373 1401 
1455 1477 1493 1510 1512 1529 1521 
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SBRCOD 
SCALL 
SCHECK 


SCKOP2 
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SCKRE 18 2422 3507 
SCMND 18 1094 1169 1215 1217 1231 1247 1264 1283 1303 1305 1319 1335 1352 1371 


SCOMPA 18 8 §©1094 1169 1215 1231 1247 1264 1283 1303 1319 1335 1352 1371 1401 1417 


3671 3674 

SCOUNT 18 #1109 1725 1767 1852 1926 2161 2171 2253 2522 2546 2590 2677 2689 2780 
2800 2819 2928 2948 2969 3050 3290 3451 3627 

$00 1# §=©1094 2047 2361 

SELSE 1% 

SERRMS 1% 

SEXIFA 18 

SEXIFO 1% 

SEXIF2 18 3443 

SEXIF3 18 

SGENBR 1#@ #1095 1101 1170 1184 1216 1218 1232 1248 1265 1284 1304 1306 1320 1336 


S$GENTA 18 1093 1102 1159 1175 1219 1224 1237 1253 1270 1289 1307 1312 1325 1341 


SIF 1@ 1169 1215 1231 1247 1264 1283 1303 1319 1335 1352 1371 1401 1417 1434 
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3 
SIFCOD : 18 =§=©1094 1169 1183 1217 1231 1247 1264 1283 1305 1319 1335 1352 1371 1401 


3 
SIFCON 18 8=©1735 1775 1862 1937 2808 2827 2956 2977 3298 
SIFOPR 18 1095 1170 1184 1218 1232 1248 1265 1284 1306 1320 1336 1353 1372 1402 


SLET 1#@ #=1104 1106 


3687 3689 
SLPCNT 18 2336 2788 2935 3512 3552 3560 
SOPADD 18 861124 1127 1130 1133 1178 1181 1190 2015 2339 2374 2376 2510 2611 2740 


SOPAND 18 2422 3507 
SOPCD1 18 = =6©1124 1127 1130 1133 1178 1181 1190 1244 1261 1278 1332 1349 1366 1414 


S$OPCD2 1# 3520 3527 3648 
$OPCOD 1@ 863124 1127 1130 1133 1178 1181 1190 1244 1261 1278 1332 1349 1366 1414 
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SOPCOM 
SOPDEF 


SOPE QU 
SOP NAN 
SOPNEG 
SOPNOR 
SOPNOT 
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3195 
SOPOR 


SOPROT 
SOP20 


SOP SHF 


SSTRUC 
SSUBON 


SSCMRE 
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SSCNTN 


S$S$GETS 


S$SGETT 


SSLPCN 
SSNEWT 


SSPOP 


$SPUSH 





H 11 
MAINDEC-11-DVDUC-B MACY11 30A(1052) O2-FEB-78 08:40 PAGE 139 
CVDVCB. P11 O2-FEB-78 08: 39 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0137 


SSSELE 
SSSET 

SSSETN 
SSSETS 


SSSETT 
$$SK IP 


. EQUAT 
. HEADE 
. SETUP 
. SHRHI 
. SHRLO 


ABS. 014340 
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MA INDEC-11-DVDVC-B 
CvOVCB. P11 02-FEB-78 08: 39 


ERRORS DETECTED: O 


CVDVCB. CVDVCB. SEQ/NL: TOC=SPMAC. MAC. CVDVCB. P11 
RUN-TIME: 105 95 7 SECONDS 

RUN-TIME RATIO: 1737/207=8. 3 

CORE USED: 34K (67 PAGES) 





